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(i) PREFACE 


This volume is the second of a three volume set pre- 
senting description and program documentation of a mathematical 
model package for thermal pollution analysis and prediction. 

I 

Two sets of programs one with the rigid-lid formulation and the 
other with the free-surface formulation were developed by the 
Thermal Pollution Group at the University of Miami. These 
models are three-dimensional and time dependent using the 
primitive equation approach. They have sufficient generalarity 
in programming procedure to allow application at sites with 
diverse topographical features. Both the formulations have near 
and far field versions. The near field simulating thermal 
plume areas and the far field version simulating the larger 
receiving ecosystems. The models simulate the velocity and 
temperature fields for given meterological and plant intake 
and discharge conditions. 

The first volume summarizes the mathematical formulation, 
application experience and overall evaluation of the model 
package. The present volume, namely Volume II presents the 
rigid- lid programs. Three versions are presented. One for 
near field simulation. The second for far-field unstratified 
situations. The third is for stratified basin far-field simula- 
tions. Since these versions have many common subroutines, an 
unified listing is provided with main programs for three 
possible application conditions mentioned above. The programs 
are named NASUM I reflecting NASA funding and technical support 
and University of Miami effort. The third volume presents the 
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program documentation for the free-surface models. 

These voLuraes are intended as user's manuals and as such 
presents specific instructions regarding data preparation for 
program execution and specific sample problems. 
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LIST OF SYIIBOLS 

The following lisc of symbols which are obtained from Volume I 
are presented hare for convenience. 

horizontal kinematic eddy viscosity 

A . 

V vertical kinematic eddy viscosity 

A 

Z vertical eddy viscosity , 


reference kinematic eddy viscosity 


\/^ref 


horizontal diffusivity 

a 

V vertical diffusivity 

Bref reference diffusivity 


V^ref 


vertical conductivity i 


specific heat at constant pressure 
Euler number 
Coriolis parameter 
Froude Number 

acceleration due to gravity 
depth at any location in the basin 
reference depth 

grid index in x-direction or /. direction 
grid index in y-direction or direction 
grid index in z-direction or y direction 
thermal conductivity 
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s surface heat transfer coefficient 

L horizontal length scale 

P pressure 

p 

s surface pressure 

^ref 

Pr turbulent Prandtl number (x ) 

\ef 

Pe Pec let number 

Q* heat sources or sinks 

Re Reynolds number (turbulent) 

Ri Richardson number 

T temperature 

T 

air air temperature 

T 

ref reference temperature 

T 

E equilibrium temperature 

t time 

^ref reference time 

u velocity in x-direction 

V velocity in y-direction 

w velocity in z-direction 

X horizontal coordinate 

y horizontal coordinate 

z vertical coordinate 

Greek Letters 

a horizontal coordinate in stretched system 

3 horizontal coordinate in stretched system 


Y 


vertical coordinate in stretched system 
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y absolute vsicosicy 

p density 

dissipation terms in energy equation 
^xz surface she-'.r stress in x-dir@ction 

T surface shear stress in y-direction 

Superscripts 

( ) dimensional quantity 

('^^) dimensional mean quantity 

{') diemnsional fluctuating quantity 

( ) dimensional quantity 

( )j.gf reference quantity 
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introduction 

This volume presents the main programs and subroutines for 
MASUM-I as described in Volume I. The program symbols are 
given in alphabetical order for the convenience of the user, 
and several sample problems are presented to illustrate clearly 
what input data is required to execute NASLTI-I, Note, that the 
governing equations and associated approximation^ and assuraptionr 
are given in Volume I. 

As previously noted, NASUM-I consists of three main 
programs: Near-Field Rigid-Lid, Far-Field Rigid-Lid, Un - 
stratified, and Far-Field Rigid-Lid, Stratified. The Near- 
Field is defined as the domain of interest in the immediate 
neighborhood of the thermal discharge with open boundaries 
which extend far enough from the discharge to justify using the 
Far-Field solutions as boundary conditions on the Near-Field. 

The Far-Field yields the general circulation and temperature 
distribution of the water body without the discharge. 

The subroutines for NASUM-I are presented in alphabetical 
order with corresponding program descriptions illustrating 
to the user an outline of the contents of each subprogram . 

This allows the user to gain sufficient ease in running NASUa-I, 
and develop the capability of raodifying some of the individual 
subroutines as desired by the user. 

NASJM-I consists of three main programs which use many 
of the same subroutines, but differ mainly in the use of open 
boundary conditions for the case of the Near-Field Rigid-Lid 
Model application. The Far-Field Rigid -Lid Model has been 
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applied for cases of open boundaries by Sengupta et al (1976) , 
but the nature of the open domain for the Near-Field requires 
using different main programs v;hich in turn select different 
subroutines to perform the necessary calculations on these 
open boundaries. 

The Far-Field Rigid-Lid Model programs have been separated 

t 

into two cases, stratified flow and unstratified flow. This 
separation is necessary since for deep water bodies seasonal 
thermoclines are sustained, whereas for shallow water bodies 
turbulent mixing does not sustain stratification. Thus, for 
NASUM-I to be of a general nature this separation was essential. 

Sample problems, showing sample input and sample output, 
have been included to provide the user with sufficient back- 
ground and necessary details involved in executing NASUM-I. 

Note, that any program modifications should be made v;ith 
great care, and these modifications should be validated by 
sample runs to assure the user of the effect these modif- 
ications have upon the numerical solutions. 
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2.0 NASUM-I PROGRAM DESCRIPTIONS 

The Rigid-Lid Model program contains two parts. The first 
part is for N ear-Field program. The Near-Field here means the 
region where the effects of the plume on the receiving waters 
are severe. 'The second part is for Far-Field . The Far-Field 
here means the total body of receiving water. The plain dif- 
ference between Rigid-Lid Near-Field and Far-Field lies in the 
boundary conditions. The Main programs for Near-Field and Far- 
Field call a different set of subroutines. There will be many 
subroutines which will be the same for both Near and Far Fields. 
This is the main reason for combining Near and Far Field programs. 
The Far-Field main programs had to be divided due to the f^'nputer 
overflow. The computer used was UNIVAC 1106. In places 
where there are large computers, the Far-Field main programs can 
be combined. 

2.1 Near Field 

Near-Field, as said above, is the region where the effects 
of the discharge are felt most. There are four main programs 
which are explained in the later sections of this volume. There 
is no special reason for keeping four main programs and they can 
be combined. The authors found it convenient to work with four 
programs since modifications were e.isier to make during application 
at various sites. 

2.11 Description - Algorithm 

The problem is set up as an initial value problem. 

The values of u, v, w, p, p, t are assumed kno\\ai initially. 
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The valuee at succesalve time etcps are obtained by using the 
finite difference equations and marching one step at a time. 
Fig. 2.1 shows the flow chart. The steps may bo summarized 
as follows: 

1. Using the values at time n, calculate the forcing function 
in the pressure equation, 

« 

2. Solve the pressure equation iteratively, 

3. Calculate u and v from the u and v momentum equations 
respectively. 

4. Calculate w from the continuity equation. 

5. Calculate T from the energy equation, 

6. Calculate p from the equation of state. 

7. Check for static stahility and apply the infinite mixing 
criteria for unstable regions. 

The values at (n->-l) have thus been obtained. Repeat 
the above procedure for (n-+-2> usine. values at (n+1) and so on. 
The algorithm is essentially the same as that used by Sengupta 
and Lick (1974). 
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2.12 Flow Chart 

Fig. (2.1) shows Che general flow chart of Che rigid lid 
programs for both near and far fields. The detailed flow 
charts with subroutines ar«: given In section 9, where main 
programs and, subroutines at? described. 
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2.2 Far Field 

The Far-Field as said before is the total body of 
water into which the discharge is made. Far-Field programs are 
divided into two parts. The first part is for the case of an 
unstratified body of receiving water, and the second part is 
for a stratified body of receiving water. There are six main 
programs and these can be used in three different ways which 
are explained in section (4.2) of this volume. 

2.2.1 Description-Alr.orithm 


This is the same as for the Near-Field which is 
explained in section (2.1.1). 

2.2.2 Flow Chart 

The general Flow Chart for the Far-Field is similar to 
the one for the Near-Field which is in section ^'2.1.2). A 
detailed Flow Chart with subroutines is given in section (9.1.5) 


where the subroutines are described. 


i 
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3.0 LIST OF Pr.OGRAM SYMBOLS WITH EXPLANATION IN ALPHABETICAL 
ORDER (Near-Field and Far-Fleld Combined) 

A 

2 

A Conscanc in Equation of State, p - A+ BT + CT 
AA : Value of V at Plume Inlet (ie at I**9) for Near 
Field 

ABR: I 

Rossby Number 

AH : 1 

Re 

AI : Coefficient infront of inertia term 

AKT: Ka Href 

B 

z 

AP : Coefficient infront of pressure term 

ARBP: Arbitrary pressure 
AV : I 

RE where c ■ H 

r" 

A3 : Vertical eddy coefficient, norr.ialized with reference viscosity 

B 

2 

B : Constant in Equation of State, p « A+ BT + CT 

BB : Value of V at Plume inlet (ie at I-IO) for near field 
BZ : pCp B^ 

BV : Vertical eddy diffusion coefficient normalized with reference 

eddy diffusivity 

C C : Constant in Equation of State, p - A+ BT +CT^ 

CC : Value for y constant 

CWX: 0.0 

c\n 


0.0 
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D 


D : u at previous time step 


DlIZ; 3T ; DPX - 3P 

52 52 


; DPY - 3P 
1Y 


DPSX; 3Ps ; DPSY - 3Ps 

“53f -5y 


DT 

DX 

DY 

DZ 


Tine Increment 
Increment in x-dlrectlon 
Increment in /-direction 
Increment in z-direction 


HHUX; 3(hu) . DIHVY - 3(hv) . DlHUUX 

3x ' 3/ ' 




3 X 


f 


niHUVY: 

3 (huv) 
3 y 

; DIHUVX - 3 Chuv) ; 

3 X 

DIHWY 

DIUY: 


DIVX - 3v ; D2UX- 
~5x 

.2 

I-H2’ 

D2VX 


D1V\;X - 3 (vw) ; DIVZ 
3 z 

' 51“ ' 

D2UZ 

3z^ 

DlVZ - 3v ; D2VZ - 
3z 

; 

3z2 

D1A3Z: 

3 ^3 ; 
^ z 

DLZ “ Dx^ Dy^ 

(Dx^+Dy^) 



3 (hw) 

ay 


E : V at previous time step 
EPS ; Convergence criterion 
EUL : Euler Number 
EX ; Residual error 
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FH : Forcing function 

. i 

G : Duininy variable for v 

I 

H : Dunimy variable for u 

HI : Non Dimensional depth •* h 

E 

HREF : reference Depth 

HX : ^ ; HY “ T-H 

i) u i) p 

IN : liaximum number of grid points in x-direction 
IVJM : i'laximum number of half grid points in x-direction, 
IWN = IN-1 

I : Index for x-axis , Main grid 
ITN : Index for number of iterations 
lU : Index for x-axis , half grid 
IR.UI.' : Index for number of runs 
= 0 irstrun 

= 1 ^from second time onwards 

J : Index for y-axis , Main grid 

JU ; Index for y-axis , half grid 

Jl'I : Maximum number of main grid points in y-direction 

JI-JM : liaximum number of half grid points in y-direction, 


JIJN = JN-1 


^ 

16 

: Ind«x for z-axit 

: Maximum nunbar of main grid points in z-diraction 

: Maximum langCh of Che domain 
: Number of time steps to be computed 
: Total number of time steps/LN 

j Number to describe general location of a point in th^ 
main grid. 

: Number to describe general location of a point in the 
half grid. 

MAXTT: Maximum number of iterations 

0 CMEGA: Relaxation factor 

P p ; Non-dimensional pressure 

PN ; Mew pressure, non-dimensional 

PHnH: Dummy variable for pressure 

R R : Dimensional density at main grid points 

RE : Reynolds number 

RB ; Rossby Number 

EUMDt: Density integrated with respect to x 
RirTTY: Density integrated with respect to y 
RO : Non din. 3 nsional density at main grid points 
ROW : Non dimensional density at half grid points 


K K 
KN 

L L 
LN 
LLN 

M MAR 

MRH 


1 


i 
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HREF: Reference density 

RW : Dimensional density at half grid points 

I T : Non dimensional temperature at main grid points 

TO : Initial temperature (dit.;cnsionaI) 

TAMB: Ambient temperature (dimensional) 

TAIR: Air temperature (dimensional) 

TAI : Coefficient infrort of convective terms in the 

energy equation ■ 1 

TAH ; 1 where Pe - Re x Pr 

Pi" 

TAV : 1 where pe - Re x Pr; ^ ^ 

Fe"c2 L 

TE : Equilibrium temperature (dimensional) 

TTOT; Total time elapsed 

TAUX: 3u/3Y (non-dimensional) 

TAUY : 3v/3Y (non-dimensional) 

TEM : Dimensional temperature at main grid points 
TC^^,7: Dimensional temperature at half grid points 
TREF: Reference temperature 

TW : Non dimensional t^-nerature at half grid points 
TLL : Temperature at the discharge point (non-aimensional) 

TMII : Temperature at the discharge point (non-dimensional) 

U U : Velocity in x-direction (non-dimensional) 

V V : Velocity in y-directlon (non-dimensional) 

WIS : Vertical eddy viscosity (non-dimensional) 
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W : Velocity in z-dlrectlon (non>dlm«nslon«l) 

WH : W at half grid points 

Tine derivative of WH at lid, 

ie 9 (WH) at lid 
7t 

or 3 'z-0 

'»* Tt 


XINT: Integral of x terms on the right hand side of 
Poisson's equation. (Eq 2.17, Vol. 1) 

X : Horizontal coordinate across discharge for near fielu. 


YINT: Integral of y terms on the right hand side of 
Poisson's equation. (Eq 2.17, Vol. 1) 

Y : Horizontal coordinate along discharge for near iieid. 


Z : Vertical coordinate 
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W W : Velocity in z-direction (non-dimensional) 

VJH : W at half grid points 

WHIDT; Time derivative of WH at lid, 

ie 5 (^^m) at lid 
Tt 

or 0 (Vm)'z-O 

7E 


X XINT; Integral of x terms on the right hand side of 
Poisson's equation. (Eq 2.17, Vol. 1) 

X ; Horizontal coordinate across discharge for near lieiu. 


Y YINT: Integral of y terms on the right hand side of 
Poisson's equation. (Eq 2.17, Vol. 1) 

Y : Horizontal coordinate along discharge for nea„- ..ieiu. 


Z 


Z ; Vertical coordinate 


I 


r 

I 

I 
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4.0 NASn-l-I rtAIN PROGRAiMS ; N««r Fi«ld :-Uln Progran* arc given 
I for velocity only and for velocity and temperature 

f 

' 4.1 Near Field 

There are four main programa for the near field. They 
are (1) AI-IAIN 1 (2) AIIAIN 2, (3) TItAIN 1 and TIAIN 2 

I 

' AMAIN programa are to be uaed when the velocity field ia only 

required, neglecting the cffecta of denaity, 

I 

, TMAIN programa are to be uaed x^hen the velocity and temperature 

I 

I are both required, 

( ' 

^ AltAIN 1 and TMAIN 1 are to be uaed when the depth ia cenatant. 

AMAIN2 and T'lAIN 2 are to be uaed when the depth ia variable. 

I All the above main programa can be combined into a aingle 

I program. But, the authora found it convenient to have four 

I 

programa to work with, 

4.2 Far Field 

Far field main programa are provided for unatratified and 
atratified cooling reaervoira, 

4.2.1 Far Field, unatratified 

There are alx main programa namely. TMAIN 4, TMAIN 4T. 

TIiAIN 5, TMAIN 5T, TMAIN 5V and TiIAIN 6, These programs can 
be used in three different ways, First, if the velocities ar** 
temperatures are to be simulated In a coupled fashion, then 
TMAIN 4, TMAIN 4T, TiIAIN 5 and TMAIN 6 are to be used. Second, 
if the velocities alone are to be simulated, then TMAIN 4, 

TMAIN 4T, TI-IAIM 5V and T;-IAIN 6 are to be used. Third, if the 
temperatures alone are to be simulated, then TMAIN 4, T!tAIN 4T, 
TMAIN 5T ana TMAIN 6 are to be used. 


"i| 


L 
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TiiAIN 4 «nd TMAIN 4T Initialize the nodal. TMAIN 6 
doaa the printing of rasulta. Actual alnulatlon la carried 
out by TMAIN 5, TI-IAIN 5V and TMAIN 5T. Thue, for aucccaalve 
alnulatlon. TMAIN 5. TMAIN 5V and TMAIN ST alone need to be 
executed. TMAIN 6 may be uaed If results of each run need to 

• JN 

be printed. 

4.2.2 Far Field Stratified 

There are six main programs, namely TMAIN 4CB, TIIAIN 4TB, 
TMAIN SB, Tl-IAIN STB, TIAIN SVB and TMAIN 6B. These programs 
can be used In three different ways. First, If the velocities 
and temperatures are to be simulated In a coupled fashion, th'^.i 
TMAIN 4CB, Tl-IAIN 4TB, TMAIN SB and TMAIN 6B are to be used. 
Second, If the velocities alone are to be simulated, then 

TMAIN 4CB, TMAIN 4TB, TMAIN SVB and TMAIN 6B are to be used. 

Third, If the temperatures alone are to be simulated, then 
r*IAIN 4CB, TMAIN 4TB, TMAIN STB and TMAIN 6B are to be used. 

TMAIN 4CB and TI-IAIN 4TB Irltialize the model. TMAIN 6B 
does the printing of the results, Actual simulation Is carried 
out by TMAINSB, TMAIN SVB and TMAIN STB. Thus, for successive 

simulation, TIIAIN SB, TMAIN SVB and TI-IAIN STB alone need to be 

executed. TMAIN 6B may be used if results of each run need 
to be printed. 
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5 . 0 Input Data ; 

The data that is to be given for the execution of the main 
programs is called Input Data. The data required is explained 
in section (S.l'.l) for the Near field and in section (5.2.1) 
fox the Far-Field. Sections (5.1.2)and 5.2.2) explain the format 
of input for the near-field and for the far-field respectively. 
The actual calculation of data for near field and far field are 
given in the sample problem secti.''n to follow. 

5.1 Near Field; For near-field there are two classes of 
programs. They are AliAIN and TMAIN. AiiAIN is used for ob- 
taining velocity distribution only. TMAIN is used for velocity 
and temperature distributions. The data required for running 
the programs is described in the following section. 

5 . LI Data Required for Near Field : The data required for 

running TMAIN programs which will simulate velocity and 
temperature are described below. (The data needed for running 
A2IAIN programs are not given separately as it can be obtained 
from the data for TIIAIM programs) . The Fortran symbols which 
appear in the main program as data are given in the brackets. 

For the meaning of algebraic syrnbols the reader is urged to 


look into the list of symbols. 

First time or continuation of run (IRUN) 

Number of cycles (LN) 

Total number of cycles/ (LN) (LLN) 

Non-dimensional viscosity (vertical) (VVIS) 

1/Rossby number = ^ (ABR) 
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Coefficienc infrond of inertia terra 

1/ Reynolds number « 1 

Re 

1 where „ 

C Re L 

Coefficient infront of pressure term * 1 
Convergence 'criterion 

Maximum number of iterations in the solution of 
Poisson Equation for surface pressure 
Relaxation factor 

Arbitrary Pressure for normalizing pressure 
solution after each iteration 

Grid size in a and 3 direciiions i^Non dimensional' 
Grid size in y direction (Non-Dimensional) 
Coefficient infront of convective terms in the 
energy equation 

1 = 1 where Pe = P«.e x Pr 

Peclet Number pT 


(AI) 

(AH) 

(AV) 

(AP) 

(EPS) 

(MAXIT) 

(OMEGA) 

(ARBP) 

(DX,DY) 

(DZ) 

(TAI) 

(TAH) 


where = H 

Pe c‘ L 

Constants in Equation of state 

2 

(The equation of state is p = A+BT+CT where 

A,B,C are constants, and T is temperature) 

Ks ^ 

Bz 

where Ks is surface heat transfer coefficient 
H is reference depth and 
Bz is vertical conductivity. 

Euler Number 

Temperature gradient at the vertical boundaries 


(TAV) 

(A,B,C) 


(AKT) 


(EUL) 

(CW) 
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Tcraperature gradient at the bottom 

Value of V at diacharge (for near field at 1*9. J*l) 

Value of V ut diacharge (for near field at I«10, J*l) 

Depth of the baain in a constant depth case (CC) 

Diachari^e temperature at Inlet (for near field at I-9, J«l> (TLL) 

Discharge temperature at Inlet (for near field at I«10, J*1 (TMll) 

Ambient ter.nerature 
(dimensional) 

2*0 in x-direction 

I 

'^'^/3'li 2*0 in y-direction 

Time stop size 

Also, depending on the size of the domain the parameter state- 
ment has to be changed, In the parameter statement the follow- 
ing parSi'eters are to be changed. 

Maximunj number of nodes in a-direction, full grid system (IN) 

Miiximum number of nodes in 6-direction, full grid .system (JN) 

Maximum nuinber of nodes in -y-direction, full grid system (KN) 

Maximum nui.iber of nodes in a-direction, half grid system (IWN) 

Maximum number of nodes in 6-direction, half grid system (JWiO 

5 . 1-2 Format of Input For Near Field : 

In the previous section (5,11) the data required to run the 
program is described. In this section, the format in which the 
data has to be given for the programs to execute will ^e listed. 
The calculation of the data is explained in the sample problem 
section (6.3) 


(TAMB) 

(TAUX) 

(TAUY) 

(DT) 


(CB) 

(AA) 

(BB) 
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CARD NO. 

1 
2 

3 

4 

I 5 

6 
7 
6 
9 

I 10 

11 

: ^2 

! 13 

f 14 

15 

16 

5.2 Far-Fteld 

Far-Field main programs are given for stratified and un- 
stratified conditions of the receiving waters. There are six 
\ main programs (TMAIN 4, TMAIN 4T, THAIN5, TXMIN 5T, TMAIN 5V 

and Tl'IAIN 6) and these programs can be used in three diff- 
erent ways as described before in section (4,2), The data re- 
quired for these programs is similar to the Near-Field data but 
it will be repeated again for convenience. Again Fortran sym- 
bols that appear in the main programs are shown in brackets. 
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VARIABLE 

PORMAT 

IRUN 

15 

LN 

If 

LLN 

M 

WIS, ABR 

FREE 

AI, AH, AV, AP 

It 

EPS, MAXIT, 0^fEGA, ARBP 

II 

• 

DX, DY, DZ 

II 

TAI, TAH, TAV 

II 

A, B, C 

II 

TO 

II 

AKT, EUL, CTJ, Ca 

II 

M, BB, CC 

II 

TLL, TMM 

ft 

TAMB 

It 

TAIDC, TAUY 

II 


DT 
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For Algebraic symbols, the reader is urged to look into the 
list of symbols. 

5.2.1 Data Required For Far"Field 

Number of cycles for coupled velocity and temperature 


simulation (LN) 

Number of cycles for uncoupled temperature sim- 
ulation (LLN) 

Non-dimensional viscosity (VVIS) 

1/Rossby Number (ABR) 

Coefficient infront of inertia- terms (AI) 

1 = 1 = (AH) 


Reynolds Number Re 

i.. = (AV) 


Re 

Uhere e = ^ 

Coefficient infront of pressure term • (AP) 

Convergence criterion (2 PS) 

Maximum Number of Iterations in the solution 
of Poisson Equation for Surface Pressure (MAXIT) 

Relaxation factor (OilEGA) 

Arbitrary Pressure for normalizing pressure sol- (ARBP) 
ution after each rotation. 

Grid sizes in a and 3 directions, 

i,ion-dimensional values) (DX, DY) 

Grid size in -direction, 

(non-dimensional value) (DZ) 
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Depth of the basin in a constant-depth 

case, zero otherwise 

Wind shear in x-direction ■ t 

X z 

Wind shear in y-direction - xyz 
Time step size, non-dimensional value 
Coefficient infront of convective terms in the 
energy equation * 

1 

Pi 

where Pe ■ Re x Pr 


(CC) 

(TAUX) 

(TAUY) 

(DT) 

(TAD 

(TAH) 


1 

Pi“P 

U 

where c ■ j- , Pe - Re x Pr 
constants in Equation of state 
Reference temperature (dimensional) 



Where K„ is surface heat transfer coefficient 
s 

H is reference depth 

is vertical conductivity 
Euler number 

Temperature gradient at the vertical boundaries 

Temperature gradient at the bottom 

Equilibrium temperature, dimensional 

a", constant in the equation which is given below 

for vertical diffusivity in a thermally stratified 

lake 


(TAV) 


(A,B,C) 

(TO) 

(AKT) 


(EUL) 

(CW) 

(CB) 

(TAl-IB) 


(CONS) 


A„ - AV^ {1 + a” h Tref (-Y^|f )} 

VO d ' 


1 
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Depth of the basin in a constant-depth 

case, zero otherwise 

Wind shear in x-direction « 

xz 

Wind shear in y-direction » tyz 
Time step size, non-dimensional value 
Coefficient infront of convective terms in the 
energy equation ‘ 

1 

where Pe » Re x Pr 
1 

Pe~lP 

H 

where c =» , Pe = Re x Pr 

constants in Equation of state 

Reference temperature (dimensional) 

Ks H 


z 

liOiere K is surface heat transfer coefficient 
s 

H is reference depth 

is vertical conductivity 
Euler number 

Temperature gradient at the vertical boundaries 
Temperature gradient at the bottom 
Equilibrium temperature, dimensional 
cr”, constant in the equation which is given below 
for vertical diffusivity in a thermally stratified 
lake 

A = AV (1 + a" h Tref )> 

VO 0 1 


(CC) 

(TAUX) 

(TAUY) 

(DT) 

(TAD 

(TAH) 

(TAV) 

(A,B,C) 

(TO) 

(AKT) 


(EUL) 

(CW) 

(CB) 

(TAliB) 


-1 


(CONS) 
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Maximum Value of Vertical diffusivity in a 
thermally stratified lake, non-dimensional 
value 

Minimum value of vertical diffusivity in 
a thermally stratified lake, non-dimensional 
value-' 

Identification matrix in the full grid system 
Identification matrix in the half grid system 
Non- dimens inal depth matrix 
Number of Inlet-Modes 
Number of Outlet Nodes 
Location of Inlet and Outlet Nodes 
U-velocity at Inlet and Outlet nodes, non-di- 
mensional 

V-velocity at Inlet and Outlet nodes, non-di- 
mensional 

Temperature at Inlet nodes, non-dimensional 
Also initial temperature if available 
Minimum surface temperature in a thermally strat- 
ified cooling lake 

Maximum depth over which plume heat is accumulated 
in a thermally stratified cooling lake 
A matrix of ambient vertical temperature distrib- 
ution in a stratified cooling lake 
The first column represents the depths and the 
second column represents dimensional temperatures 
Number of layers at which ambient temperature is 
specified. This is the number of rov;s in Al-IINT 


(AVMX) 


(AVMN) 

(MAR(I,J)) 

(I1RH(I,J)) 

(HI(I.J)) 

(NIN) 

(NOUT) 

(I,J,K) 

(U(I,J,K)) 

(V(I,J,K)) 

(T(I,J,K)) 

(TSMN) 

(DPMX) 

(AI-IINTCM)) 


(NTL) 


r 
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1 


Number of colums in AMINT (N,L) (NTLV) 

Depending on the domain size the following have 
to be changed in 4ie parameter statement of the main 


programs 

Maximum number of nodes in a-direction, full 

grid System (IN) 

Maximum number of nodes in 3-direction j full* 

grid system (JN) 

Maximum number of nodes in Y -direction, full 

grid system, (KN) 

Maximum number of nodes in a-direction in half 

grid system (IWN) 

Maximum of nodes in 3-direction in half grid 

system (Jl'/N) 


5 . 22 Format of Input 

In the previous section the data required is described 
for all the programs in general. In this section, the format 
in which the data has to be given for each program will be listed. 

The actual calculation of data will be explained in the sample 

problem section (7.3) and (8,3) for unstratified and stratified 

conditions of receiving waters respectively. Since there is more 

than one main program for each type of amoient condition , the 

data is given in the form of elements and each element is given ' | 

a name. The element names and the main programs that goes with it | 

I 

are explained in the next section for the unstratified case and i 

in section (5. 2. 2. 2) for the stratified case, . 
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5. 2. 2.1 Format o£ Input for Unstratified Condtions ; 

There are four elements for unstratified type conditions 
and they are (1) INDATA (2) INDATA 5 (3) INDATA 6 (4) ITPKl 
and these go vi?ith the main programs (1) T1'IAIN4, (2) TMAIN5, TliMIIDT 
and TMAIN5V (3) TMAIN 6 and (4) TI-IAIN 4T respectively. The 
data that goes with these data elements is explained in the 

I 

next sections. The main programs that goes with the elements 
is given in the brackets. 

5 . 2 . 2 . 1 . 1 Data Element "INDATA" (For main program TMAIN 4) 


CARD NO 

VARIABLE 

FORI-IAT 

1 

LN, LLN 

1615 

2 

VVIS, ABR 

Free 

3 

AI. AH, AV, AP 

t ( 

4 

EPS, liAXIT, OMEGA, ARBP 

! t 

5 

DX, DY, DZ 

1 t 

6 

CC 

t 1 

7 

DT 

( t 

o 

U 

TAI, TAH, TAV 

« 1 

9 

A, B, C 

1 1 

10 

TO 

1 t 

11 

EUL, DW, EB 

f f 

12 

TAMB, AKT, TAUX, TAUY 

t 1 

13 

liAR (1,1) MAR. (2,1) ,MAR (3.1)... 

1 1 

14 

MAR (1,2) .vtar,(2,2) .:-IAR (3,2)... 

1 1 
1 t 


MRH (1,1), MRH (2,1) MRH (3,1) 

f 1 
1 1 


MRH (1,2), MRH (2,2) .MRH (3,2) 

1 t 


VARIABLE 
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FORMAT 


— 


- 



Free 
1 1 

HI 

(1,1) 

HI 

(1.2) 

HI (1,3) 

11 

HI 

(1.2) 

HI 

(2,2) 

HI (3,2) 

11 


5. 2. 2. 1.2 Data Element "INDATA 5" (For main programs TMAIN 5, 
TMAIN 5T and TMAIN 5V) 


CARD NO 

VARIABLE 

FORMAT 

1 

LN, LLN 

1615 

2 

VVIS, ABR 

Free 

3 

AI, AH, AV, AP 

1 1 

4 

EPS, MAXIT, OMEGA, ARBP 

11 

5 

DX, DY, DZ 

1 1 

6 

CC 

It 

7 

DT 

11 

8 

TAI, TAH, TAV 

M 

9 

A,B,C 

ft 

10 

TO 

tl 

11 

EUL, DW, CB 

1 1 

12 

TAMB, AKT, TAUX, TAUY 

tt 

13 

NIN, NOUT 

1 1 

14 

I, J, K, U (I, J, K) , V(I, J, 

K), T(I, J. K) " 


(for inlet) 


1 1 


I. J, K. U(I, J.K), V(I,J,K) 
(for inlet) 
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5. 2. 2.1.3 Data Element INDATA 6 (For main program TiIAINS) 
Same as first 12 lines of data element RJDATAS. 


32 


5. 2. 2. 2 Format of Input for Stratified Conditions ; 

There are four elements for stratified type conditions an^ 

they are (1), DATAML,(2) DATAML 5. (3) DATAML 6 and (4) ITLKl 

and chese data elements go with the main programs (1) TMAIN 4B, 

(2) TMAIN 5B, TMAIN STB and TMAIN 5VB, (3) TMAIN 6B and 

(4) TMAIN 4TB respectively. The data that goes with these data 

« 

elements is explained in the ne:<t sections. The main programs 
that goes with the elements is given in the brackets. 

5. 2. 2. 2.1 Data Element "DATAML" (for main program TI-IAIN 4B) 


CARD NO 

VARIABLE 


FORMAT 

1 

LN, LLN 


1615 

2 

VVIS, ABR 


Free 

3 

AI, AH, AV, AP 


tf 

4 

EPS, MAXIT, OMEGA, 

ARBP 

t( 

5 

DX, DY, DZ 


M 

6 

CC 


It 

7 

DT 


It 

8 

TAI, TAH, TAV 


M 

9 

A,B,C 


M 

10 

TO 


M 

11 

EUL, CW, CB 


tt 

12 

TAMB, AKT, TAUX, TAUY 

1 1 

13 

CONS, AVMX, AVMN 


1 1 

14 

AMINT (1,1), AMINT 

(1.2) 

1 1 

15 

AMINT (2,1), AMIIIT 

(2,1) 

tl 

16 

AMINT (3,1), AMINT 

(3.2) 

tl 
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VARIABLE 

fok:l\t 



Free 

ti 


MAR (1,1), MAR (2,1) M^\R (3,1)... 

1 1 


MAR (1.2), MAR (2,2) MAR (3,2)... 

1 1 
tt 


MRH (1,1), MRH (2,1), MRH (3,1).., 

1 1 
1 1 


MRH (1,2), MRH (2,2), MRH (3,2).., 

1 1 
M 


HI (1,1) , HI (1,2) , HI (1,3) . . . 

( ( 
1 f 


HI (2,1) , HI (2,2) , HI (2,3) . . . 

M 
1 f 

5. 2. 2. 2. 2 

Data Element "DATAML5" (For main 
TM.ain STB and HLVIN SVB) 

t« 

programs TMAIN 

CARD NO 

VARIABLE 

FOPvMAT 

1 

LN, LLN 

1615 

2 

WIS, ABR 

Free 

3 

AI, AH, AV, AP 

tt 

4 

EPS, MAXIT, OMEGA, ARBP 

tt 

5 

DX, DY, DZ 

II 

6 

CC 

1 1 

7 

DT 

1 1 

8 

TAI, TAH, TAV 

( 1 

9 

A . B , C 

1 1 

10 

TO 

1 1 
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FORMAT 


CARD NO. VARIABLE 


11 EUL, C;. CB Free 

12 TAMB, ART. TAUX, TAUY 

13 CONS, AVMX, AVMN 

14 NIN, NOUT 

i: I. J. K, U (I,J,K), V (1,J,K). T(I,J,K) '• 


(for inlet) 


I, J, K, U (I, J, K), V (I, J, K) 


(for inlet) 


5 . 2 . 2 . 2. 3 


Data Element "DATAML6" 


(For main program 




Same as first 13 lines of DATAML 5 
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6 . 0 Sample Ca&e, Near Field 

6 . 1 Problem Statement : Florida Power and Light Company (FPL) 

has a fossil fuel power plant situated at Cutler Ridge site on the 

7 3 

South Biscayne Bay. The discharge rate is 1.2 X 10 cm /sec 
of Xi?ater at temperature 35.9°C. It is required to find 
three-dimensional velocity and temperature distributions in the 
near-field (ie in the region where the effects of the thermal dis- 

I 

charge are noticeable) for the following environmental conditions. 

Air temperature * 29.5°C 
Initial temperature of Bay =* 28.0^C 
Wind speed * 1.2 m/sec, N-W 

Average depth of bay » 1.2 m 
Discharge width * 10 m 

6.2 Choice of Programs : As velocity and temperature distributions 

are required, and, since depth is constant, the main program to be 
used is TMAIN 1. If the depth is variable TMAIM2 has to be used. 

6.3 Calculation of Input Parameters : In this section, the spec- 

ification of grid system, reference quantities and discharge 
velocity chosen will be presented first, followed by the actual 
calculation of the input data quantities as they appear in the main 
program. 

6.3.1 Grid System : The Remote Sensing data and ground truth data 

was available for the Cutler Ridge site, (Fig. 6.1) and it is used to determine 
the size of the domain. The data shows ttat the effects of dis- 
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charge would be in the region of 500 meters along the discharge axis 

(y-axis) and 425 meters across the axis of discharge. So, a domain 

of 500 m X 425 m is selected in the horizontal plane. A grid size 

of 25 m X 25 m is used. This would give 21 X 18 nodes in the 

horizontal plane. There are 5 nodes in the vertical direction. 

This gave a total of 21 X 18 X 5 nov’cs. The coordinate system and 

grid system are shown in Figs. ( 6 . 2 and 6.3). The MAR and MRh selection 
are explained in subroutine READ3 . 

6.3.2 Calculation of Discharge Velocity ; The actual discharge 
width at the site is 10 meters. But, in the numerical model the 
discharge is 25 meters. So, the discharge velocity is calculated 
by balancing the mass flow as explained below. 

For the numerical problem, with the above grid systan, the discharge 
into the basin would be equal to (vX25X1.2X 10^) X 2 cm^/sec. 

The actual discharge volume = 1.2 X 10^ cm^/sec. 
ie (v X 25 X 1.2 X 10^) X 2 = 1.2 X 10^ 
ie V = 20 cm/ sec 

Velocity at discharge or Inlet velocity for the model is 
20 cm/ sec. 

6.3.3 Reference Quantities : Reference Length = L = Maximum length of 

domain * 500 meters -Horizontal reference eddy viscosity is cal- 
culated using the following formula (Christodoulow et al, 1976) 

Aref = 0.002 

Where L is the reference length of the domain in centimeters . . 
Aref = 0.002 (500 X 100)^^^ = 3553.3 cm"/sec 

For Near Field problems about 2.8 times the calculated value 


was found suitable. 
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Aref * 10,000 cm‘*/sec is used 

■> 

Vertical reference eddy viscosity » 1 cm^/sec 
Horizontal reference eddy diffusivity ■ 10,000 cm^/sec 

9 

Vertical reference eddy diffusivity * 1 cni‘*/sec 
Reference velocity * discharge velocity ” 20 cm/ sec 
Reference temperature * 35.9*^C 

Reference depth =* Average depth of bay ** 1.2 meters 

6.3.4 Calculation of Input data as it appears in the main program 
TMAIN : 

~ — — r 

CARD NO. FORTRAN QUANTITY ' 

1 IRON ! 

1 

— — — 

IRON = 0,for the first time and 
IRON =lfor later runs 


CARD NO. FORTRAN QUANTITY J 

2 LN I 

LN can be any number depending on the number of cycles 
required and the total time the program h.as to be run. It is 
advised to run the program for 10 or 15 cycles and check how the 
model is running. 

i ; 

CARD NO. FORTIUN QUANTITY ' 

3 LLN 

LLN is To tal N umber of Cycles 

LN 
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If LN is 15 and LLN is 2, Chen the model will give output after 15 and 
30cycles . 


CARD NO. 

FORTRAN 

STATEMENT 

4 

WIS, 

ABR 


WIS - ^ - 1 » 0.0001 

Aref lO , 000 • 

ABR “ 1 - 1 = fL 

Rossby Number Kb Uref 

Vi/here f is the coriolis function, L is maximum domain 
length and Uref is reference velocity, t - IQ. sin t{) 

Where is angular velocity of earth, i]) is the latitude 
angle . 

Since Rbis large for near field ABR '*0.0 


CARD NO. FORTRAN STATEMENT 

5 AI, AH, AV, AP ; 

AI is the coefficient infront of inertia term = 1.0 

AH = 1 = Aref =10,000 =1 =0.01 

Re Wei L 20 X 500 X 100 TO 

AV = 1 = l2 = 500 X 500 = 1736.0 

irir” mrrr-x loo 

AP is coefficient infront of pressure term = 1.0 


CARD NO. FORTRAN QUANTITY 

6 EPS .MAXIT, OMEGA, ARBP ' 

EPS is the convergence factor and should be set equal to the 
convergence required. A value of EPS = 0.01 is a good value to 


start . 
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MAXIT: is the maximum number of iterations in the solution of 

Poisson equation for surface pressure. This depends upon the 
accuracy needed. A value of 50 is a good starting point. 


, 

CARD NO. FORTRAN QUANTITY 

7 DX, DY, DZ I 

1 1 

DX » DY » AXorAY =25 * 0.05 

L 

DZ = 1 = 1 = 0.25 

(KN-1) 

CARD NO. FORTRAN QUANTITY 

8 TAI , TAH , TAV • 

TAI is the coefficient infront of convective terms in the 
energy equation = 1 

TAH = .AH If turbulent Prandtl number is equal to 1 . 

TA\f “ AV If turbulent Prandtl number is equal to 1. 

TAV = 1 = 1736.0 

e^Re 


CARD NO. FORTRAN QUANTITY 

9 A,B,C 

A,B,C are constants in the equation of state and there 
values are 

A = 1.000428 
B = -0.000019 


C = -0.0000046 
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CARD NO. 

FORTRAN QUANTITY 

10 

TO 


To is the reference temperature - 28.0°C 


CARD NO. 

FORTRAN QUANTITY 

11 

AKT, EUL,CW,CB 


AKT is non-dimensional heat transfer coefficient - KsH 

Bz 

Where Ks is surface heat transfer coefficient ,H is the reference 
depth and Bz ■ pCp Bv 

Where p is density, Cp specific heat at constant pressure, Bv 

2 

is vertical diffusivity = 1 cm /sec 

'i 2 

Bz = 62 Ibm/ft *= 63.05 'slugs/m 

For Ks = 100 BTU/oF - Ft^-day =*56.5 cal/°C - m ^ sec, 

AKT = 0.0627 

EUL = g H = 980 X 1.2 X 100 =294 

Uref2 

CW and CB are temperature gradient at the vertical boundaries 
and the bottom respectively and are equal to zero. 


CARD NO. 

FORTRAN 

QUANTITY 

12 

AA, BB, 

CC 


AA, BB are non-dimensional input velocities. Since the discharge 

V 

velocity is non dimens ionalized with reference to discharge velocity 
AA and BB are equal 1 . 0 and 1.0. 

CC is non dimensionalized depth and equal to 1.0 for a constant 
depth case. 
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CARD NO. FORTRAN QUANTITY 
13 TLL, TMM 

TLL and TMM are the non-dimensional discharge temperatures. 

TLL - TMM -35.9-28.0 - 0.282 

; — 

CARD NO. FORTRAN QUANTITY | 

14 TAMB 



TAMB is the air temperature » 29.5°C 


CARD NO. 

FORTRAN QUANTITY 

15 

TAUX, TAUY 


TUAX, TAUY are the non-dimensional wind shear in x and y directions 
respectively. Wind shear is obtained from the Wilson (I960) 
curve which is given in Fig. (6.4 ). For a wind speed of 1.2 
m/sec , the Wilson curve gives the Shear stress (r'^) equal to 0 . 049 
dynes /cm^ . 

= Surface shear in x direction = i Cos 45° = 0.035 

xz w 

T = Surface shear in y direction = i Sin 45° = 0.0345 

y z w 

TAUX = + H = 1.2 X 100 X 0.035 = + 0.1768 

Uref ^ Az •' 2T) 1 

TUAY = + H . xyz v = 1.2 X 100 X 0.035 = + 0.1768 

Uret ^ Az 20 1 

The direction +ve or -ve is decided as follows. TAUX (or TAUY) 

is +ve when the wind force is in the opposite direction of x 

(or Y) and vice versa. For wind, TAUX ^ +0.1768, I’AUY -O.17o8 
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CARD NO. 

FORTRAN QUANTITY 

16 

DT 


In order to determine the time step (DT) , the stability 
analysis Has to be made which is done as follows. 


Convective At < Ax * 25 X 100 * 125 sec 

“tJ 

Viscous At < Ax * (25 X 100)^ * 312 sec 

2AH ~2 X 10,000 

At < Ax^ - (0.3 X 100)^ » 450 sec 

2^ 2 

From above it can be seen that convective criterion is dominant, 
ie At < 125 sec 

About % times this value is reasonable to use At = %(125) 

= 30 sec (approx) 

This value of At is non-dimensionalized and used as the value 

for DT. 

DT = AT 
^ref 

Where t ^ = L = 500 X 100 = 250 sec 

u?ii — — 

DT = 30 =0.01 

IJUU 
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6.4 Sample Input 


SYIiBOLS 

VALUES 6c FORMAT 

* 1. 

I RUN 

b b b b 0 

•kif 2 , 

. LN 

b b b 5 0 


LLN 

b b b b 1 

1 

4. 

, VVIS, ABR 

0.0001, 0.0 

i 

5. 

AI, AH, AV, AP 

1.0, 0.01, 1736.1, 1.0 

6. 

, EPS, MAXIT, OMEGA, ARBP 

0.01, 50, 1.8, 1.0 

7. 

, DX, DY, DZ 

0.05, 0.05, 0.25 

8. 

TAI, TAH TAV 

1.0, 0.01, 1736.1 

9. 

A, B, C 

1.000428, -0.00002, -0.0000048 

10. 

. TO 

28.0 

11. 

. ART, EUL, GW CB 

0.627, 294.0, 0.0, 0.0 

12. 

, AA, BB, CC 

1.0, 1.0, 1.0 

13. 

TLL, TI-IM 

0.282, 0 202 

14. 

TAMB 

29.5 

15. 

TAUX, TAUY 

0.1768, -0.1768 

16. 

DT 

0.01 


NOTE : 16 = blank space 


* 0 for the first run and 1 for later runs 

** number of cycles required 

Prints after 50 cycles in this case. If it is equal to 2, it 
will print after 50 and 100 cycles. 
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6 , 5 Program Execution Proce du re (For Constant Depth) 

In order to execute the programs for the near field 
constant depth case, the following steps have to be followed, 

(1) Input Parameters: The calculation of input parameters is 

explained in the sample problem section (6,3). The input 

parameters depend on the discharge conditions, ambient cond- 

« 

itions and reference quantities chosen. 

(2) First Run ; In order to obtain three dimensional velocities 
and temperatures, the main program to be executed is TMAINl . 

In the programs, there are two units, one is read unit designated 
as, unit 7 and the other is write unit designated as, unit 3. 
During the first run, there is no need for unit 7, and unit 8 
has to be provided to store results. This store unit, '8; would 
be a magnetic tape, 

(3) Continuation of a Run: For extending the results, the 
run has to be continued. The magnetic tape which was 'unit 8' 
in the first run would now be read 'unit 7' for reading the pre- 
vious results. Another magnetic tape is to be provided as unit 8 
for storing the extended run results. The above procedure can 
be repeated until the results are obtained for the desired timt. 
It is to be noted that for the first run IRUN=0 and for continu- 
ation of a run IRUN=1. 

The following are a set of control cards that were used 
on UNIVAC 1106 computer in order to run the near field programs 
for a constant depth case. The explanation of the control card 
is given in the brackets. 
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CARD 1 
@ RUN 

(Schedule a new run for initiation) 

CARD 2 

0 ASG,A SKM*DULL 

(All parameters on 0 ASG Control Statement are optional except 
file name.) 

A-specifies that the file being assigned is currently cat- 
alogued SKM is the qualifier and DULL is file name) 

CARD 3 

C< PACK SKM^DULL 

(Packs the non-deleted elements of a program file, by rewriting 
the file and eliminating the deleted elements) . 

CARD 4 

0 PREP SKiM*DULL 

(Prepares an entry point table for program file, for use by the 
0 MAP process or in searching a LIB specified program file to 
satisfy undefined symbols) 

CARD 5 

0 ASG, T S. , 16N, BAYl 

(T-specifies that the file to be assigned temporary and allows 
it to have a name the same as that of an unassigned catalogued 
file. BAYl is the name of the tape.) 
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CARD 6 
^ MAP 

(Call the MAP process or (Che collector) to collect a specified 
set of relocatable elements, am produce from this an executable 
program which is in an absolute element format) 

I 

CARD 7 

niSKIM*DULL. TMAINl 

(TMAINl is the main program which would be executed) 


CARD 8 

LIB SKIi*DULL 

(specifies file as a library to be searched) 


CARD 9 
XQT 

(Initiates the execution of a program which is in an absolute 
element format) 

CARD 10 

Data cards as shown in section (6.4) of the sample problem 


CARD 26 


'-a FIN 

(Terminates a run) 
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6 . 6 Program Execution Procedure (for variable depth) 

In order to execute the programs for the near field variable 
depth case, the following steps have to be followed. 

(1) Input Parameters : The calculation of input parameters is 

explained in the sample problem section (6.3). The input para- 
meters depend on the discharge conditions, ambient conditions and 

I 

reference quantities chosen. 

(2) The depths in the receiving basin at every grid point have 
to be obtained. If the depth contours of the receiving basin arc 
available, the depths at all grid points can be obtained by inter- 
polation. These depths have to be non-dimensionalized with respect 
to reference dpeth. The non-dimensionalized depths have to be 
read in before execution of the program. In the program, the sub- 
routine HEIGHI reads the depths, in the direction perpendicular 

to the discharge axis ie along I or x axis. The depths go as input 
cards ir. the format given by subroutine HEIGHI during the first 
run after the input card which reads "TAUX, TAUY" . 

(3) First Run ; In order to obtain three dimnsional velocities and 
temperatures, the main program to be executed is TIIAIN 2 , In the 
programs, there are two units. One is read unit designated as, 
unit 7 and the other is write unit designated as, unit 8. Durin,^ 
the first run, there is no need for unit 7, and unit 8 has to be 
provided to store results. The unit '8', would be a magnetic 

tape , 

(4) Continuation of a Run: For extending the results, the 

run has to be continued. The magnetic tape which was used as 
store unit (unit 8) in the first run would now be the read unit 
(unit 7) for reading the previous results. Another magnetic t ipc 
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has r.o b« provided as unit: 8 for storing the extended run 
results . The above procedure can be repeated until the re- 
sults are obtained for the desired time period, It is to be 
noted that for the first run IRUN-0 and for continuation of 
a run IRUN-1. 

The following are a set of control cards that were used 
on UNIVAC 1106 computer in order to run the near field programs. 
The explanation of the control cardsis given in the brackets. 
CARD 1 
RUN 

(Schedule a new run for initiation) 

CARD 2 

Q ASG.A SKM*DULL 

(All parameters on <5 ASG Control Statement are optional 
except file name. 

A-specifies that the file being assigned is currently catalogued 
SKM is the qualifier and DULL is file name.) 

CARD 3 

(3 PACK SKM^DULL 

(Packs the non-deleted elements of a program file, by rewriting 
the file and eliminating the deleted elements.) 

CARD 4 

(0 PREP SKM^'^ULL 

(Prepares an entry point table for program file, for use by 
the a) 1-lAP processor in searching a LIE specified program file 
to satisfy undefined symbols) . 
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CARD 5 

(2 ASG.T 8. , 16N, 3AY1 

(T-specifies that the file to be assigned temporary and allows 
it to have a name the same as that of an unassigned catalogued 
file. BAY 1 is the name of the tape) 

CARD 6 
MAP 

(Call the MAP processor (the collector) to collect a specified 
set of relocatable elements, anp produce from this an execut- 
able program which is in an absolute element format) 

CARD 7 

IN SKM * DULL TI'IAIN 1 

(TMAIN 1 is the main program which would be executed) 

CARD 8 

LIB SKM*DULL 

(Specifies file as a library to be searched) 

CARD 9 
Q XQT 

(Initiates the execution of a program which is in an 
absolute element fcrmat) 

CARD 10 


Data cards as sho\'m in section (6.4) of the sample problem. 


.c a rd. 26 

add Siai^DULL HEIGH2 

(This adds the depths which is stored in the file as an element 
under the name HEIGH2. This card should be taken out after 
the first run ie the input cards which read nrn-dimensionalized 
depths are included for IRUN*0 only) • 


CARD 27 
Q FIN 

(Terminates a run) 
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6 . 7 Sample Output 

The output of the near field rigid lid program consists 
of the following. 

1. Input parameters 

2. MAR and MRH matrices 

. 1 * 

3. Number of iterations (ITN) in the Poissons Equation and 
residue (EX) 

4. Surface Pressure 

5. U and V at all grid points (non-dimensional) le U and V 
at I-l to IN. J-1 to JN and K-1 to KN 

6. WH at all grid points (non-dimensional) ie IJH at 
IN- 1 to IWN, JW« 1 to JWN and K« 1 to KN 

7. Temperatures both non-dimensional and dimensional at all 
grid points. 

ie T at I-l to IN, J-1 to JN and K- 1 to KN. 

Selected portions of a sample unit are shown in the next few 


pages . 


52 


* 


• >» 




I 



I 

t 


t 

I 1 


i 

t; 



^ C“ 


O , 


! 


i 


.:a 

c 

o 

n 


f4 T 

c t- 

I • ♦ 

c r) ro 

o L 5 u 
O c. W-. 
:3 3 f ) 
c; c' i“* 
j > -> 
(/ •» ••* 


CM 

rj O 
O C C • 


! »J 
t J C 


r? o o 

a .. o 

» . o t • _ 

'5 rj c? rj 

h rr rj n r? 

. U ) W ) w ^ ^ 

r? r . tf • 


l. 

i. 

I' 


u< 

f 4 


O 

• « • c 

a *J ♦ 

I r c 

r; iJ t 3 
J; C CJ 
fj U O 

i- *o c: 


o 

j LJ ri 

# ♦ # 

rj CD 

o k .4 
CO o o 
r- w* 
C >*> i"> 


n 

C' 


C 3 l •*• u> 



II H l» »» •» •’ " 

^ r ^ o. ^ 

^ «4 ^ •• C*!**"** 


II 

II 







II 

II 

II 

II 

► •! 

II 5C 

(X 

>« 

V 



«< 

a. 

X) 

2 


«4 

ft. 

oc 

•t 

«& 

►- 

i. 

!.• O 

«t 





1 . 




>: 



(\i — 

^ W' CJ 


c: C 3 1 - rz CJ 


(j 
3 J ) 

n »r* 


• c; 

o o 

iD •• > 
wl » J 
C >*■ 

f ) f < ri -• 

i ^ 0 • 




r> ♦ ^ ^ IT C 3 

n CT f J »-)*■’• ’ 

.« f i «. I * ••' 
u> O — C» 

, r- C,; C 

J ^ r vj J 

f' t.‘%' i - 

-i . ' 

f J c - * 

^ I r • 


CJ 

¥ 

CJ 

I 

c*. 

J 


It M •♦ 

r- * r» 


II •• >• l 
.ii fc »A 


• I M 
II lu o 
^ 


ORIGINAL PAGE IS 
OF POOR QUALITY 


n 


II 

i 

u 

f 

il 

il 

f 

II 

;l 

k 

II 
II 
1 1 
I 

\l 

f 

[ 

V 

il 

i 

I 

E 

j[ 

[ 

) 

![ 

■[ 


n 

c» 

I 


rj ^ 

f.» o 

» • 

!*« 

«« l» 
f • « 
• - 

If M 

W* 

• • 


c o 
o o 
• « 

«A 

1.^ 

III 

ri 
wi «n 
cf «» 

t • 


o o 

c* o 

• • 

9 9 

O 

M 

•r Ml 


^ n o 

rj r cj 

♦ ♦ » 

•> «4l « 

^ 

^ ^ 

r <t M 
f.» Q «> 
C « » 

•.. ^ 


r3 O O 
O O O 
♦ M » 

«i ' I/I 
^ ^ 
M Kl •«• 
<4| •*! M 
Hi 9 

Ql 

W «^ 


tl Ci O 
iJ U C 
» f ♦ 

•J IT. ) 
i'. ff lO 

»•> 4f ^ 

in •< 

V*' <> •/! 

f ' 

I. u C' 


U v1 O 

I -’ O O 

- • ♦ 

%• f** •'» 
.0 M r. 

c. 

^ o 
u* • • f 
f \» vA 
w' •> i* 


i t.i 

« # » 

.-« - ♦ »*i 

• * U 
•n t.' 

4“ I • I ' 

.1 J 

* • V 

. f /» 


• *1 


• J 

• * »^l 
♦“• Il 

% 

• f . 

U« 

•• i 

• • 


*« CJ 

c u 

♦ # 

Ml ^ 

r-i O' 

Ml Ml 

c: o 


I ^ 


— cj ri 

Ca V * o 

♦ ♦ f 

O 4/^ 4*1 

o a 

M IN «j 
f« Ul 
U 9 t 

I. *o O 

c^ o 


o O CJ 

c» c: a 

► ♦ ♦ 

M ' M ©s 
*»J ^ 

.r r» 

•>! M 
»l I c- »■ » 

■•.' r* 

&• w ^ 


• j 'j I : 
i » I*, t j 


r. > r* 

♦14. ^ 

r-» , j,. 


rj U 


ij *1 

11 rj 

fi r» 

o n 

1 »f 

n .1 

# • 

f > 

• ► 

# 4 

M't M 

% 4^ 

.^ » 

u V 


o • 

.1.1 

-.1 «l 

c ^ 

i* r 

• f 

I ?. 

.© -4 

Ml ly 

•> • • 

41 1 


Ml 

•/ !/• 

Ml •» 

fH 4# 

U IT 

M y 

Ci 4 


M e« 


r« 

• • 

• • 

• • 

• • 

1 1 


• • 


n c 

C 

O Cl 

•-I 4J 

u rs 

€.' Wl 

U C3 

1 r. 

♦ ♦ 

1 M 


• ♦ 


r« M* 


M» fm 

41 •• 

f- K 

4) 

^ M» 

•/I 

M 

m Ml 

^ I 1 • 

O 10 

M 9 j 

1 1 ,•% 

r • 4# 

u ^ 

n 1 ^ 1 

V4 1^ 

ij 

Oi 9i 

y; 

CJ 4» 

«© 

IN 


ri 

©I ^ 

• • 

• • 

• • 

• • 

• 'i 


• 1 



-4 O 

O il tJ 

m4 O O 

CJ 

Cl u 

C3 ij 

Ci Cl 

a o c> 

Cl 

Cl e 

r 

Cl n 

Cl u n 

♦ M. 

♦ ♦ ♦ 

1 

♦ ♦ 

4 

4 4 

1 » M 

«r. ♦rt 

-j •« 

M* 

44 I/I 

•1’ 

M* I'M 

M* MM »A 

<r •« 

O Ml U 

wtt 

^ M* 

n 

Ml Ul 

1*1 Id «f 

Ml 4 

9 

«• 

C «) 

Mi 

9 IN 

M* 1^ Ml 

IM 4# 

01 IT U 

mM 

# id 

u 

d IN 

M« 4 Mm 

•4 <N 

r» «4 lAi 


id 


♦d 49 

COM* 

Cl «y 

O I/I 


Ml 9 

o 

|M Wl 

M- Ml if 

^ «• 

M »4 MM 


p4 mm 

Ml 

»l MM 

Ol M* MM 

• • 

• t • 

• 

• • 

4 

4 4 

• 4 • 


• 1 1 



c 

1 1 



c 

o 

o o 

o 

4H O O 

o 

Cl o 

• *4 O 

Q 

O C/ 

o 

o o 

o 

Cl n o 

n 

o a 

n ki 

'3 

4 4 

4 

4 4 

4 

1 4 4 

4 

4 4 

• 4 

4 

©1 M 

m4 

9 

iM 

-4 4. 

d 

M# CM 

M* r* 

<d 

«o o 


IN «d 

Wl 

d M. d 

IN 

d Wl 

d 


C.1 »/l 

Ml 

40 O) 

Ml 

Ml M 01 


•O #N 

«N f4 

•1 

f^t M* 

^ 

M CJ 

^l 

r «T M* 

r 

a M 

lA a 

M* 

4| M* 

l> 

44 Wl 


^ fN f4 

M* 

Ul n| 

d N 


• : « 

IM 

4T «0 


CM Ml d 

CW 

«; Wl 

C M* 


M# C 

•> 

M« M« 

M* 

M* M4 m4 

M-l 

• 4 M« 

M» Ml 

M« 

4 4 

4 

4 4 

4 

4 4 4 

4 

4 4 

4 4 

• 



1 1 

• 


1 

• 1 




•• v9 

'J 

O '*3 

Cl 

*4 

o o 

n <1 

r3 

•-4 3 3 

O U 

U 

O C3 

Ci 

n 

o o 

o a 

O 

Cl r.i o 

4 4 

4 

4 4 

4 

• 

4 4 

♦ 4 

4 

1 4 4 

M» M» 

IN 

fN d 

IN 

<k 

Ml M- 

r • N> 

o» 

«• M« M* 

MM Wl 

•• 

IN Id 

m4 

04 

CM U 

IN vw 

m4 

04 CM a 



M4 «/» 

Ml 

C 

ul ^ 

M. dl 

M 

i) u> o 

M* f>4 

Q 

(M Ml 

Ml 

-r 

d IN 

(M Ml 

Ml 

d d *4 

M< Ml 


4. Wl 

CL 

(i 

CL M. 

O) w> 

U* 

d a O' 

(J <o 

(M 

Wl CM 

Ul 

Cl 

M d 

ul 0* 

III 

O 04 4f 

9^ <M 

O' 

Ml MM 


M» 

mM m4 

M< 

mU 

0* •-« *M 

• • 

• 

4 4 

• 

• 

4 4 

4 4 

4 

• 4 4 



1 • 

1 



1 • 

1 



C 

c? 

o 

MU 

C CJ 

u c; 

O 

u 

1.4 

CJ 

Ci 

o 

n 

o a 

C3 

r*l 

n 

o o 

l3 

4 

4 

4 

1 

4 4 

4 

4 

♦ 

1 4 

4 

d 

4i 

IM 

Ml 

••i <o 

d 

o 

CM 

•1 

'vj 

Ck 

M« 

IT 

*r 

K1 Ou 

ri 

mu 

Cv 

d M 

0 

»•! 

04 

O- 

Uk 

Ci dl 


• 4 

o» 

Ul O 

% J 

U 

•N 

<1* 

MU 

Ml d 

n 

01 

c«> 

MU hi 

4 

Wl 


44 

04 

Ml u> 

Ul 

•w 

u) 

♦N Ml 

u4 

IN C 

Ul 


O* d 

o» t- 

wl 

01 01 

.y 

MU 

04 

MU 

Ul 

M4 MU 

M« 

04 •-• 

%42 <•« 


t 

4 

4 

m 

4 4 

• 

• 

4 

• • 

• 

1 

1 

1 



1 

• 

1 

• • 


Ml 

a 

Q 

M4 

o o 

MU 

O 

1 

MU fl 


wj 

1-’ 

CT* 

U CJ 

(2 

CJ 

Cm 

Cl OJ 

I" 

• 

4 

4 

1 

4 4 

1 

4 

4 

I 4 

♦ 

Id 

O. 

€M 

♦1 

W 0-1 

V 

OJ 

C*‘ 

a u 

Ol 

o 

Ci 

Ol 

O' 

d ui 

(i 

( 1 

1.1 

*♦' 4 


o* 

fvi 


u> 

MU f-| 

O' 

Ot 

rl 

WU M« 

t » 

01 

c.i 

lJ 

U*I 

t Ml 

< 1 

1 1 

c k 

<> d 

f 1 

s> 

'J 

f 1 

d 

O' Wl 

I*! 

»u 

» J 

r 0- 

\* . 

U' 


•) 

1 ) 

MU d 

u 

• 1 

xi 

o •« 


CV. 

♦N 

«u 


•I *u 

t ' 

»U 


.1 «'M 

«>- 

• 

• 

4 

• 

• • 

• 

• 

• 

• • 

• 

1 

1 

• 



1 

1 

f 




O 

r» 


Il n 


Cl 

n 

n 

r • 


li 

» 1 


-# Cl 


% 1 

• 1 

N. 

4 . 


► 

M 


4 4 


r 

1 

4 

4 

iJ 

.1 

d 

1.^ 

C4 

( 

1 

f 

1 d 

f 4 




•; * 

♦ 1 1*1 

^ • 

0. 


4.J f 1 

• 1 

1 1 

-.1 

III 

c J 

M fl 

♦ J 

• n 

vi ■ 

(1 M 

4< t 


p- 

1/ 

4 i 

»' 41 

O' t: 


|4 

C LO 

♦ « 

Ll 

»'4 

T— » 

L - 

J ••1 

1 

• » 

*1 

c J ) 

♦ • ■ 

f k 

Ol 

*1) 

r • 

•u 

1 

ou 

.t 

* J • u 

r 

Li 

f 4 

-M - 

u 

• -1 •-< 

Il » 1 1 

04 


. J • 

u 

• 

• 

• 

t 

• • 

'»• • 

• 

• 

• • 

• 


1 I 


f I 

: 


o 

“• .i 
•*i 
;• 
II • 
■* .!) 






«SV6«Sl«01 .13S7>1T*00 •12I7;3S«0S .IXOSttl^M •imtlfHIO •ttt?l0l«M 

9SdlCT2-Cl .e77?SS?*0| •77Sa?SlHl| .»aS«3IS2*01 . •SSftlllHn ... .•«SIOaTS^l •SMl)S«-Ol...-.»0fO97S0-9l 

2?i9I21>C! .i7P27«3o01 ' .1130S71-0I .aataiSSoOZ -•I7«1012«02 







M mm 

M 


ft 





9» 


ft 

•1 

IS 

IS 

ft 


a o 

Ci 

a 

;: o 


n 

o 


a 

O 


• 

• 

• 


1 1 

• 

I 

1 I 


1 

1 

1 

« 

1 

1 




c 

. 

ft 

Cl 

m* 

IS IS 


o 

a 

v*» 


f*i 

M 


M 

IS 

fl 


# 


ft 

ft ft 


ft 

#• 

ft 

19 

ft 

*/» 

O 







ft 

o ▼ 


ft 

(S 

ft 

ft 

n 

ft 

U» 

ft 

ft 

«A 


fS« 

il 

«• 

K »ia 


M 

ft 

r,i 

:»* 

»*• 

mm 


• 

% 

• 


ft M 



91 


ft 

M ft 



<4 

vl 

a* 



w 

ft 1-1 


ft 

u u 


Ul <» 

in 


4> 

o 

..1 

Ul 

fi 


IS 

M a 

M 



fv * • 



ra 

r« 

'*1 

•I 


a 




M a 

• • 

• 

• 

• • 


> • 

• 

• 

• 

• 

« 

■i* 

ft 

ft 

ft 




• 

1 • 


C 



1 

1 

( 

ft 

• 

• 

• 



>• 




m 


ft 





ft 


ft 

ft 






a 


• - 




a 

ft* 

IS 

IS 

M Im 





mm 

u 


»m 




Ul 




ft 






Ik 






Ik 

c 

o 


ft 


2Z 




X 






k 

• 

' • 

• 

M ly 


Ut 



•• 

Ul 






Ul 

i** 



ft 


c, 




ft 


ij 




ft 

r* 

#s 

t4 












SURFACE SHEAR STRESS [t 



0 2 4 6 8 10 12 14 16 ' | 

WIND VELOCITY, Wa (meters/sec) 

I 

Figure 6. 4 WIND SHEAR STRESS RELATION | 







61 


I 
I 
I 

r 

I 
I 

r 

I 

I SOME REPRESENTATIVE RESULTS FOR THE 

, NEAR-FIEU) SAMPLE CASE 

I 

I 

I 

I 

I 

I 

I 

I 



6.6 Surf«c« velocity distribution 





Fig. 6.7 Vtloclcy ditcribuclon along cha axla of diseharga 
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7.0 8a«pl» Cai«, Far Fl«ld (Un»tr«tlfl»d €•§•, Pond) 

7.1 Problm 8f tmant i Duk« Powtr Coiapany of Horch Carolliui optrotot 

« cool flrtd oloetrle powor plane at Laka Balawt Craak In North 
Carolina. Thara ara two powar units and aacb has a capacity of 
1143 MWa. Both thasa units usa Balaws Laka as a cooling rasarvoir. 

Tha laka, aV shown in figura 7.1 consists of a pond and a main 
body of ths laka. Tha pond and main body of laka ara connactad by 
a canal. Tha pond has a maximum dapth of 13.72 matars (45*) 
and is wall mixad. Tha main body of laka has a maximum dapth of 
39.26 matars <130') and is tharmally stratifiad. Tha discharga 
from tha condansars is mads into tha pond. It is raquirad to find 
thraa dimansional valocity and tamparacura daistributions in tha 
pond and tha main body of tha laka for tha following discharga and 
anvironmantal conditions (thasa conditions ara of August 26, 1976). 
Discharga Voliima ■ 228.9 X 10^ kg/hr 
Discharga tamparacura ■ 38.9^C 
Air tamparacura ■ 23.0^C 
Wind spaad ■ 4. 25 mauara/aac 22S^N 

2 

Total incident radiation ■ 43.19 caloriaa/cm /hr 

7.2 Cholea of Proarama for Unatratiflad Pond! Since tha pond ia 
unatratifiad, tha main programa to ba uaad ara (1) TMAIN 4 

(2) TMAIN5, TMAIN ST, TMAIN 5V and (3) TMAIN 6. Tha data alemanta 
that go with theae programa are (I) INDATA (2) INDATA 5 and 

(3) INDATA 6. If tha initial conditiona are known (ie Ground 
truth data and IR data), then the program TMAIN 4T can be uaed. 
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Th« data •l«Mne that go^§ with it It ZRPKX. lMilll4T5ta bttlinln- 
tttd if tht Inltltl eondltont art not known and ona can atlll 
obtain valoeity and tanparattira dittributiona uaing tha nodal. 

Tha calculation of input paramatart ia explained in tha next 
aaction. 

7.3 Calculation of In put Par anatara t In thia aacoion, tha 
apacification of tha grid ayatan and rafaranca quantitiaa choaan 
will ba praaantad firat followad by tha actual calculation of tha 
input data quantitiaa aa they appear in tha main programa. 

1) Grid Syatam: A computational domain of 720 matara by 1680 

matara in tha horizontal plana aa ahown in Fig. 7.2 covara 

. moat of tha aignificant portiona of tha Mixing Pond. Tha 
grid aiza choaan is 60 matara by 60 matara. Thia givaa a 29 X13 
maah in tha horizontal plana. Tha depth of tha pond ia 13.72 
matara and ia divided into five layara thua giving total maah of 
29 X 13 X 6 for tha entire computational iomain of tha pond. 

2) Rafaranca Qxiantitiaa ; Rafaranca quantitiaa ara uaad to non* 
dlmanaionaliza tha input paramatara and thay ara givan balow. 
Rafaranca Valoeity : 30cm/ aac 

Rafaranca Tamparatura: 30^C 

Rafaranca Horizontal Langth ■ Langth of domain ■ 1680 matara 

Rafaranca Dapth • Maximum dapth of domain • 20 me :*ra 

2 

Rafaranca Horizontal addy viscosity • 45,000 cm /sec 

2 

Rafaranca Vertical eddy viscosity " 10 cm /sec 
Pr ■ 1 Is chosen 

2 

•*. Reference Horizontal eddy dlffuslvlty ■ 45,000 cm /sec 

2 

Reference Vertical eddy dlffuslvlty > 10 cm /sec 


w 


7.3.1 CalcttUtion of Input data for «Uti| jlMmr ”TWTA 
■ala program TMAZN4.) 

Tha daflnltion of tha aymbola ara glvaa in aaeclon (5.2.1). 


CARD NO. 

FORTRAN QUANTITY 

1 

LN, LLN 


Thaaa ara not ealeulatad valuat and can ba any nunibar dapanding 
on tha numbar of cyclaa raqulrad and tha total tioM tha program 
has to ba run. It la always advisad to run tha program for 10 
or 15 cyclaa and chack how tha modal la nmning. 


WIS 
ABR - 


« Av 
Araf 


CARD NO. 

FORTRAN QUANTITY 

2 

WIS, ABR 


CT.COO 


- 1 - f L 

)ar uraf 


Roaaby 

Whara f la corlolla function, L la domain length and Uraf rafaranca 


velocity 
£■20 aln A 

Whara fl la angular velocity of earth and la the latitude angle, 
f - 2 X 2ir Sin A 

irrvmo 

iO 


Tha latitude of Lake Balaws la 36 - 16* - 15" North. 

Thia glvaa f • 0.8604 X lO'^/aec 

Roaaby Ntanbar ■ Uraf ■ 30 

nr 0.8504"X TO- a X 1680 X 100 - 2.07159 


and ABR ■ I 
I[B 


2.07159 


0.482721 
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EPS is ths convsrgsncs cricsrlon aud should be sec equal co 

Che convergence required. A value of EPS • 0.01 is a good value Co 

scare. 

MAXIT is Che maximum number of iceracions in Che soluclon of Poisson 
EquaCion for surface pressure. This depends upon Che accuracy 
needed. A value of MAXIT ■ SO is a good scarcing poinC. 

OMEGA is relaxacion faccor and a value of 1.8 provides rapid convergence. 
ARBP is arbicrary pressure and a value of 1.0 Is used. 
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DX - 


60 

TCT0“ 


OY 

DZ 


• iSsir 


I - 0.2 
5 


C*«P no- 

3 

FORTRAN OUANTITY 
OX, DY, DZ 

0.03363 

0.03363 


CARD NO. 

FORTRAN OUANTITY 

6 

CC 

CC - 1.0 

depth CC ■ 

I.O and zero for variable 

CARO NO. 

FORTRAN OUANTITY 

7 

DT 


DT it tht clmt tttp to bt uttd. In ordtr to obtain DT valut, 
stability analysis hat to bs nads in ordtr to stt what crlttridi 
to bs uttd. 

Convsction Critsrion 


u At < I 
Ix 

or At < 


^ - 60X100 .»j200 CSC. 

u - ';30 


Viscous Criterion 
At < 


At 


A*' - 


60 X 60X10^ - 0.04 X 10^ sec. 
2"X 45.000 

60 X 6CK 10 ■ 0.2 X 10^ sec. 

2 X 10 
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Dlffualv Crif rlon 

AC < Ax^ 

TUT 

AC - 60 X 60 X 10^ 

2 X 45,000 

■ 400 8«c 

Tha lowasc valua hara la non-diaianalonallzad wich rafaranca 
CO clma <®ra£) 

%a£ - _k_ - 16C0 X 100 - 5.6 x 10^ Sac - 1.33 hra. 

Ura£ 30 


Tha non dimanaional clma acap (DT) ■ Ac 

CnaC 


DT • AC 
cra£ 


200 , 

373x10^ - 0.035 


AbouC % of chia valua la raaaonabla Co uaa 


8.92x10 


3 


DT 


k (0.035) 
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gA&BJgf, 


8 

TAX, TAH, TAV 


TAX is tha eo«f£leittnc Infronc of eonvoetlvo eormo In tho ooorsy 
•quntlon ond Is squsl to I. 

If Pr ■ 1.0 thsn Arsf ■ Brsf, sines Prnsdtl nuabsr Is defined ss 

squsl to the rstio of Arsf over Brsf. snd 

TAH • AH 

TAV - AV 

TAX - 1.0 

TAH - 0.006912 

TAV - 63.11 


CARO NO. 

FORTRAN OUANTITY 

9 

A,B,C 


A.B.G srs coefficients in the squstion of ststs end they srs 
constants. The vlIuss srs 
A - 1.000428 
B - -0.000019 
C - -0.0000046 


CARD NO. 

FORTRAN OUANTITY 

10 

TO 


TO is the rsfersncs tsmpsrsturs. In this esse the reference 
tempers ture is tsken ss 30°C. 
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BUL - 




- 98 ( 


2180 


CW t T«ap«r«turt t?«di«nc «t ch« vtrtlcftl boundarltt and it 
•qual to itro in this caoo. 

CB t Tonporaturo gradiant at tha bottom and la aqual to aaro 


in thia eaaa. 


CARD WO. 


TAMB, ART. TAUX, TAUY 


IAMB la tha aqulllbrlum tamparatura and la aqual to 89.I^F for 
thla eaaa (Tha datalla of calculation of aqulllbrlum tamparatura 
ara glvan Appendix ( A) . 


ART - RaH 


Whara ART la non-dimanalonal aurfaca haat tranafar coafflclant. 


Ra la tha surface haat transfer coafflclant and Its evaluation Is 


glvan In Appendix A. 

H is tha rafaranca depth and Is aqual to 20 m 


Bz ■ pCpBv 


Whara p is density. Cp specific haat at constant prassxira. Bv 


is vertical diffusivity ■ 10 cm^/sac 


For tha case considered substituting the above values the value of 


ART comas out to be 0.349. 


TAUX, TAUY ara aqual to and non-dimensional in x and y 


directions raspactivaly. 
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Wind thMr it obCAiatd froa tht Vllton (1960) eurvt whieh it givta 
in Fig. ( 7J^. For t wind tptod of 4.29 attort/toe 229^M tbo 

2 

Wilton eurvt givot tht thotr ttrttt (tit) tqunl to 0.9979 dynot/ea . 

• ± 0.9999 dynot/ea^ 

• ± 0.1229 dynot/ea^ 

Tht dirtoeion or •) it dteidtd tt follovti 

(or T^) - VO or 4vt whtn wind ttrttt it in ehn dirtotion of 
X (or y) or in eht oppotitt dirtoeion of x (or y) . 4f tor finding 
tnd ehty trt non^iaaalontll ttrttt thown btlox to obtain 
TAUX tnd TAUT. 


TAUX - H 

”rtf 

Twx • 10 X 100 

0.9999 

- 2.24 

** 

10 


TAUT • H 

'^rtf 

TVT - 10 X 100 
3 0 

0.1229 

"T8“ 

- 0.82 


CARD MOS . . 

FORTRAN OUAMTZTY 


19 

MIA(l.l) iMMl(2.1) :MMl(9.1) 


Thie it to bt ttltettd bating on tht domain typt and an txtmplt 
how to choott it gi.tn in Fig. (7.9). 


CARD NOS. 

FORTRAN QUANTITY 


MH a.l): MH(2.1): MBIO.I 


Tht way MRH it to bt atitecad ia aiailar to MAR. Fig. (7.4) 


CARD NOS. 

FORTRAN QUANTITY 


HI(l.I): KI(1.2): KI(1.3) 


HI ia eht non-dimanaional dapth and changaa froa one do m a in to another 
Thie ia given in aubroutine HITEA. 



1 1 


(For MlB prosrtM numS. HUZM ST and HUXM5V) 

Tha flrat 12 input data earda ara aaaM aa for data alaaant 
"IMSATA" which ara ealeulatad in tha pravioua aaetion. Now, 
it will ba ahown how to calculate tha raat of tha data. 



HIM, NOUT 


! I 


HIM ia tha ntoharof vertical inlet nodaa and ia equal to 5 in 
thia caaa and ara at Z«2 and J«l. NOUT ia tha number of vertical 
outlet nodaa and ia equal to 5 in thia caaa and ara at Z«ll and 
J-13. (Sac Fig. 7. 2) 


CARD NO. 


FORTRAN QUANTITY 


I. j,K) .V(I,J,K)..T(1,J,I0 


jl 

I 


(For Inlet) 

Tha diacharga or inlat ia at I"2. J*l. Tha diacharga ia in 
tha y-diraction ao tha valocity in tha x dlraction <v-valoclty) 
ia zaro and thara ia only u valocity. Tha u valocity la 
calculated aa axplainad balow. 

Tha depth at tha inlat point ia 10.8 mater a. Thara ara 
•lx grid pointa in tha vertical direction, one being at tha 
•urfaca and one being at tha bottom. Tha valocity at tha 
bottom is zaro. Tha flow depth in tha numerical grid system 
wuld give % of grid spacing in tha vertical direction at tha 
top and bottom. Tha flow depth associated with intamadlata 



grid poiatt it OM full grid tpaelag la eha vartleal dlraetloa. 
Tha flow width at tha lalat la aqual to grid apaolag la tha 
7 dlraetloa. Aatualag aqual valooltlaa at tha uppar flva grid 
polata aad aaro valoelty at tha bottoa tha followlag foraula 
la uaad to ooaqputa tha lalat valoolty (U). 

vi-it, (ui - 

” • im m'Ao X 10* 

• 11.9 oa/aao 

Noa*dloMaaloaallalag with raapaot to rafaranea valoclty 

(30 oa/aao) tha valoolty U (Z,J»K) ■ ^^.9 ■ 0.373. Tha 

dlaeharga taaparatura la 38.9^C. Non-dimanalonal coaparatiira 

Td.J.K) - 38.9 - 30.0 - 0.2937. 

30. 0 

Tha Input data up to card Mo. 18 would ba tha taaa aa card 14 
axeapt K valua will ba Incraaalng by 1 


CARD NO. 

FORTRAN QUANTITY 

19 

I,J,KU(1,J,K), Va.J,K) 


(For outlet) 


Tha fluid laavaa tha mixing pond at location 1*11 and J«13(Saa Fi^. 7.2) 
Thla location ia callad outlat. Tha outlat valocity ia in tha 
y dlraction and tharafora it haa only v*valocity. Tha dapth 

% 

at outlat ia aqual to dapth at inlat. Thus, tha valocitiaa at 
inlat ia takan to ba aqual to valocitiaa at outlat. ia 
U(I,J,K) - 0.373, V(I,J,K) -0 


r 
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I 

r 

i 

r 

r 

I 

r 

r 

[ 

[ 

[ 

[ 

[ 

I 

[ 


Th« rttt of tho eordo (up to 23) would bo iimilor to cord 19 
txeopt K hos to bo Ineroosod by 1 for ovory eord. 


7.3.3 


ColeuUtion of Inout Doto For 



(For Moln ^ofroa TMA1M6) 

Somo 00 flrot 12 linoo of "ZIIDAIA" or "ZIIDATA5'* which oro col 
culotod in tho provlouc coctlonc. 


7.4 Somolo Input (For For^Flold Unctrotlflod Coco) 

In tho provlouc coctlon tho colculotion of input poro- 
motorc for difforont progromc oro procontod. In thic coction 
tho colculotod numoricol voluoc oro cinnorlcod in ordor for 
ooch Moin progrcm. 


(Continued) 


J 

I 

I 

I 



J 


i 


1 


I 
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7.4.1 Input for TK4ZM4 (Zm)AX4) 


«W 4*1 

u.ooo:iti»o»«*2T 

c*c^i4itJ*oss«e»d*2e 

••c 

0*00107 ~ 

i*e»(*ooa«i:»4S*ii7 
i*eoa«2if0*ocoriff3*oooce«4 
19*0 

2uo*0i0*0t0*e 
lt.T*0.34f»0*««*(0*32 
7t2|f*3»C»C»0»0*7#2*t 

3*llt4|0|QyOf3fTfifll 

J*U»4tO»9*7,2»l»ll*l 
2»llt«*2»2»«tll»U*ll 
J*ll*U»ll*ll(UiU*l 

iUtlltlltlltlltlltll 
Ctt»**UiU*U(Utll» 
S*0*l»l»4»llt4(lt4>ll 
0«0*Ct3t4»i«lS»e»3*ll 
(•*0t0*U*3»Cf9t0»i«llf 
3*0t0t3t0tCt0t0tl*ll* 

3*0*0 t0t0»dtCtCtl»4*i 
C*0*C»C(3*0*0*C*8*8*1 
4*4*C(0*C*0*C*C**I*4*.1 
19*it3*Cf9*8*0***9*t* 
19*1*3*0*3*4*2*9(7*7* 
10*7*2,2*2*7*7*9*7*7, 
1*7*7,7,7,7*7*7,7,7,7 
w*l*9,9,7,7,9*7,9,7*9 
0«C*:,1.7,7,1*1*7,9,7 
&*0*C*8*3*7*w,C»;S*7, 

3,0*0 ,0*0*0,3*3*10*7, 
C*C«0,0*C*C*0«C*10*7, 
0*C*0*d*0»C*3*C*S*9*4 
(i*3*w*0*3*3*b« C*3*3*7 
1,0*27, 0.27*0.33*3.34 
2*0.33*0* S3* 3* 69, 8* 69 

3.0. 27.0.27*0.35*0.38 
7*1*0, i*3*l*U, 0.35,0* 

3*1*1., 1*6*1*0*C*3S,C* 
7*1*0*1*0*C. 21,0, 25*3 
7*1*0*1*3*0*16*0*30*3 
4*1.0,0.16,0.16,0.76* 
9*3*16,0.16,3.36,3.61 

10.0. 32.3*61,3*69*0*4 
11*0. 30, 3*32, 3. 36, 0.6 

12.1.9.1.0. 0*36,3.69, 

15.1.0. 1.0.3.3£,0*69, 

17.1. n,1.0,3.SS,J.69, 

15. 1. C, 1.0, 0.30,3.26, 

16.1.0. 1*0,0.00,0.17,0 

17.0. 17.3.17.0.24.3.7 

16. 0. 18. 0*35, 0*73, 0.6 


C *3*0* 0, 3, 7*2*2 *2 *7*9 *7 *2 *9* 9*0,0 *C* 


7*0 

(if 

lit 

til 

lit 

iti 

Alt 

lit 

Itl 

lt7 

t7, 

ICtS 

0*0 

* 0 , 

*«t 

*7* 

7*7 

7*7 

7,7 

,7, 

*7, 

,lt 

0,3 

i )*0 

C.3 

0.6 

0*6 

7,0 

7.0 
69, 

67.0 
*67 
3 *6 
,0* 
, c . 

.69 

.69 

.38 

.33 

*16 

»C. 

, 3 . 


0*0*0 *0*2*11 *11*11*1 *2*4*11,7*0*0*0*0* 

* 2 * 2 * 7 * 7 * 4 , ii *; i * ii * ii *: i * ii * n *«, s * c * a * o * ■ 

1* 11*11 *11*4, 4, 11 *11 *11* 11*11*11* 11*11*1. 2, 7 (%0* 
ll*ll*ll*ll*ll*ll*ll»ll*ll*ll*Al*ll*ll*ll*i;*ll*ll*7,C 

1*11*11*11*11*11*11*11*11*4*4*11*11*11*11*11*11*4*2*7* 
*11*11*11*11*11, 11*11*11*7*1*1*1*4*11*11*11*11*11*7* 
1*11*11*11*11*11* 11 *7*0*3*7*4,11* 11 *11*11*11*7* 
1*11*11*11*11*11*4*10*, C* 3*3*11*11*11*11*11*11*7* 

4?* 11*11*11*11*11 *7 *0*6*0* 3*11*6*4* 11 *ll*ll*ii* 
4*11,11*4*1*10*0*9*0*1*1*13*1*1*4*11,7* 

*1 *1*10*0*0*0*0*6*0*9, C*i]*9*4*l*10* 
*O*9*O,O*O*O*O*O*C*O*0 *0 *3*0*9 *6* 

3*0*9*7*2*2(4*C*6,7*6 *3* 0*9*3* 

*9 *9 *9*10 *9 *7 *7*2 *2 *7 *6* 9*8, 9*0* 
*4*0*7*7*7*7*7*9,9*7*I*9, 0*0*9* 
*7*2,7*7*7h7,7*7,7*7,7,2*4,9*0, 
7*9,7*9*7*1*9*7*9,7,7,7*4*:*3, 

7*9*9, 7*4, 3, 3*1*1 *7*7*7*9. 2*4* 
7,9*7*7*6*0*9,9*9*19,9*7,9,7*6* 

*•*7, 7*7*7, 9*9,0, 7*7*7 *7 *9, 7*1* 

*9,7,7*8*9,3*0*0,10,9*1*9*9,7,1* 

»7*7*l*7*0*3*3*C,5*7*0*3*l,7*l* 

1*7 *w*C *5,0, 0*0*0 *0*0 *9*0*3* 7* 

0*S*C*0, 0*3*0, 0*3 *0,C*C*3*C*0* 

*3.iS,l.C*l*j*l.C*l*0* 1*3*1*0*1.0 
*0*35*0*35*1*0*1.0*1.0*1.9*1. 9*1. Os 
*0*49,0. 30*3*35*1**, l*C*l*3.1*9*l*0 
49*0.69,0.35*1.0*1.9*1.0*1.3*1.0 
67,3.67,3.3$ *0.35,1.9*1.3*1*0*1. 3 
*67 *0.67*0* 67,3.35, 1*0,1 *0,1 .9 *1.0 
*69*9*67|C*3S*0*35*1*C*1*0*1*9*1.0 
9*69*3*67.0.35*1*3.1*0*1.0*1*9*1*0 
,0*67, 2*61, 3*32*9 *2 3.0. 12*9*15, 0.21*1*0 
7* 0.69*0*69 *u.61 * 9.76 * C* 23*0*30,0*27* 0*27 
9, 0. 1 2, C. 12 ,3 *35, 0.67, w. 69, 9. 61, 3. 53, 9. 53 
0*12,0*12*0.39,0*23*0. 16,0*12,0.37,0.27 


3. 37, 0.36. 3. 5 3,3.67, 0.53 ,0*2 3.0*23* 1*0 
&*33.0«C9fO*u7,3* 69 .3*61 ,0*76,0.23, 1.0 
C. £3. 9*56, 3. 67. 3*67, 0.66, 0*30,0*15,1.3 
C. 33, 8. 76, 3. (1 9, 9 *69 *3. 69,3.25.0.30. 1.9 
6, 0*76, 9. 76,0. 69,0. 67, 3*61, 0*32, 1.9,1. 3 
9, 0*67,9. 67, C*69,C.3&, 0*32 .0 *32,1.0.1*3 


ORIGINAL PAGE (c 
OF rOOR QlJAi rry 


>2b*0*SO»(i**v*«*69*0**9*0*3S»0»39*0*39«0»3S*i«0*l*0»l*0*i«0 

»lV*b«<i3*n*93*9*o9*0*S3* 0*23*0 vlb*!* 3* i*0*l*0»it0*i»0*l*0 
»0*0*24*6*<*6«0**i*w*69«0*«T*0*39*0*t9*0*l9*0*l9*0*l9*l*0»l*0 
»lO»0*16*f»*i«*W*47f0*69*0*Sd*0*26*0*23»0*3«»0*3a*0*10»|*0*i*0 
tiO*U*33»A*9^»U*oe*0*0i*0*«s9*0*46*U*S3*0*O7*0*19*0*l9»l*0*l*0 
»U*U*16*n*t7*W*2«*0*9e*0*6l*0*69(0*69*0*9a*0*27»d*a7*i*0*l*0 
»0*i*0*1.9»0*2i*0*9l*0*90*A*61*0*69»0*69*0*93*0*87*l*0*l*0 
>0*l*0»l*n«0*2i*0*21»0*t9*o*90*0*9i»0*99*0*99*C*t7»o*t7*i*0 
»0* 1*0*1*0*1*0*1*0*0*20*0*39*0*59*0*93»0*S9*0*39»0*|7»1*0 
iU*l*0*i*(W 1*0* 1*0 *0*27*0*27* 0*27*0*27* 0*27*0 *27* 0*27* 3*0 
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7.4.2 Saatplt Input for Haln Programt TK4XN S, TM4XN 9T and 
TH4X1I 9V (XM DATA 9) 


I 2t Z3 

t ••oec::2:»d*M2T 

t 133( t tit 1 *0 

I d*63l*S»C.CJf»ftt3*20 

a a.o ' 

7 ' :*00tC7 

I t*0t0«00lfl2t*7*ll7 • • 

9 l»QOO«2t**C*U»SOift-3*C03CO«* 

3 jn«0 

1 21t0*0*C*0»0«3 

2 J1.7»0.S««»0*a««t3*32l 

3 i»t 

« 2fltltC*5»C.37)t3*2f47 

I 2»lt2»C*C|C*373,d.2««7 

a 2»it3f0*UtS*373*0«2n7 

7 2*t»4tO.O*0*J73, 3*27*7 

I 2»l»l*0*0t0*37St3*2«*7 

9 a1*13i1»C*C»3*S7S 

e lttUt2tC*StO*373 

1 lltnt3fC.OfO.3TS 

2 ll*13t*t3*0*3.ST3 

3 lltl3tStC.3t3.3T3 


7.4.3 Sample Input for TH4ZN 6 (ZM DATA 6) 


1 2b 29 

2 O.OOc:2t2»C«<*837 

I i.9tC*C0t«12t8J*ll7titC 

8 0*01tl3C»t.8fl.C 

S 0*2St*6tb*0SSCt»C«2C 

» J*0 

7 ii.CO407 

• Ua*C*9027t2**3*ll7 

f l.C0t«24f0*i;i0CCl«fS*tfCd00«« 

10 3S«0 

it 2U0*0tC*3(3*J 

12 ::«7t0.s*»9ta*474fa«33i 


! 


1 


4 


* I 

i i 

? 

- 

- 1 

I I 

^ 3 
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7.5 PROGRAM EXECUTION PROCEDURE: 

In olrdtr to •x«cue« eh« programs for cha far flald modal, 
cha following atapa hava eo ba followad. 

1) Input Paramatara : Tha calculation of input paramatara is 

axp lainad -to tha aampla problem aaction (7.3). Tha input para- 
matars dapand on tha discharge conditions, ambient conditions 
and tha rafaranca quantities chosen. 

2) Firet toi: In order to obtain three dimensional velocities 
and tanparatiiraa , tha main programs that hava to ba axacutad 
are TMAIM 4, IMAIN 4T, TMAIN 5 and TMAIN 6. Tha flow chart is 
ahown in Figure (7.6a). Tha main program TMAIN 4 initializes 
valocitiaa and tauparaturaa is it sets, all valocitiaa equal 
to zero and tamparatura aqual to tha rafaranca tamparatura. 
TMAIN 4T raads IR data as tha Initial conditons for tamparatura. 
If IR data is not availabla, tha main program TMAIN4T should 
not ba axacutad. TMAIN5 doas computations and TMAIN 6 prints 
tha rasults. In tha programs, thara ara two units. Ona is 
raad unit, dasignatad as unit 7 and tha other is stora unit, 

dasignatad as unit 8. Two tapas hava to ba providad, ona for 

• • ■ 

tha raad unit (unit 7) and anothar for tha stora unit (unit 8) . 

3) Continuation of a Run : For axtanding tha pravious rasults 

for mora tima, tha run has to ba continuad. Now tha programs 
that nead to be executed are TMAIN 5 and TMAIN 6. Two tapes 
have to be provided for cha continuation of a run also. 

Tha following are a set of a control cards chat were 
used on UNIVAC 1106 computer in order to run the programs 
for Che first time for a far-field unstratifled receiving 
basin. The explanation for the control cards is given in 
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I 






¥ 



eh« br«ek«tt. 

CAM) 1 
Q MJM 

(8eh«dul« « MV run fur initiation) 

CARD 2 

@A8C,A 8KH*DULL 

(All paraaotort on (§ A8G Control Statomant art optional axcapt 
fila nama. 

A-apacifiaa that tha fila baing aaaignad it currantly cataloguad- 
SKM it tha qualifiar and DULL it fila nama.) 


CAM) 3 

@PACK SKM * DULL 

(Packs tha non*dalatad alaoanti of a program fila, by rawriting 
tha fila and aliminating tha dalatad alamanta) 

CARD 4 

@ PREP SKM * DULL 

(Praparaa an antry point tabla for program fila, for usa by tha 
d MAP procasaor in saarching a LIB apacifiad program fila to a.at- ^ 

iafy undafinad aymbola) | 

I 

CARD 5 i 

0 ASG,T 8. , 16N, LAKE 1 | 

I 

(T-apacifiea that tha file to be assigned temporary and allows I 

it to have a name the tame as that of an xinasslgned catalogued 

i 
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fll«. LAKE I it lUOM of tho topo) 

$ HAP 

(CaII eho MAP proeostor (tho eolloctor) to eolloet o tpoelflod 
sot of roloeotoblo olomontf, ond produce from this ond sxoeut- 
oblo program which it in on obsoluta alamant format) 

CARD > 

IN SKM * DULL TMAZM 4 

(TMAZH I is tha main program which would ba axacutad) 


CARD 8 

LZB SKM * DULL 

(Spacifias fila as a library to ba saarchad) 


CARD 9 
@ XQT 

(Initiates tha execution of a program which is in an absolute 
alamant format) 

CARD 10 

@ ADD SfCM * DULL INDATA 

(Note: INDATA is the data element that provides the input 

data for the TMAIN 4 main program. The calculation of INDATA 
is given in the sample problem) 
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4 A8G.T 7.. 16M, LAKE 1 

CA^..U 

@ A8G»T 8., 16N, LAKE 2 

(NoC«i LAKE 2 it th« lUiM of Cho taps) 

CARD 13 
@.MAP 

CARD 14 

ZN 8XM * DULL TMAIN 4T 

CARD 15 
LIB SKK*DULL 

CARD 16 
@ XQT 

CARD 17 

@ ADD SKM & DULL ITPKl 

(Noto: ITPKl It cht data alament that provldat tha input data 

for tha TMAIN 4T main program. Tha calculation of ITPKl it 
givan in tha tamp la problam) 


CARD 18 


Q ASG.T 


7 ., 16N, LAKE 2 
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CARD 19 

9 A8G.T 8 .. I6N, LAXBl 
CARD 20 


CARD 21 

ZN 8KM *DULL TMAXM3 
CARD 22 

LZB SXM * DULL 

CARD 23 
@ XQT 

CARD 24 

@ ADD SKM * DULL INDATA5 

(NoC«: INDATA 5 it the (Uta altmant that providat tha input 

data for tha TMAIM 5 main program. Tha calculation of INDATA5 
ia givan in tha samp la problam) 


CARD 25 

Q ASG.T 7. , 16N. LAKEl 
CARD 26 


@ MAP 
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CAM) 27 

XM 8KM * DULL 1»UIN6 

LIB 8KM * DULL 

CARD 29 
@ XQT 

CARD 30 

@ ADD SKM * DULL IMDATA 6 

(Mot«: INDATA6 it cht dtct tltmtnc chtt providtt cht Inpuc 

dtta for tht TMAIN 6 main program. Tha calculation of INDATA6 
it givan in tha tamplt problam) 


I 


t 

E 



7.6 SamoU Output 

Tha aaopla output for far flald la almilar to tha naar 
I flald» which la given In aaetlon 6.6. 
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aiaar 


■foan' 


STil 


■■■EM! 

«jHiaf! 

&3SSGM 




wssem 




l| 


liMBn 




3.2 X 10"f v?,aEtoan (1905) 

9.3 X 10 HallstroQ(194l) 

1.21 X 10’® v“ + 2.25 X 10 ® (V-: 
V«n Dorn ^1953) 

1.98 X 10 ? v|, Wilson (1960) 
0.79 X 10’® v^. Wilson/ 2. 5 


dynos/ca^ 
os/ SAC 



0 am 9tc** 


• Fiourb T7. Relation of wind suua »» to wind velocity W, based on (a) eouauon 50. 
(b) equation SI. (c) Saut's compuuons after .‘.lunk and Andenon. equatiun 56. 


7.5 Com|)arison of Che used wind speed versus 
surface shear scress relationship with Che 
various suggested relationships. 
(Reproduction from "a treatise on Limnology 
by George Evelyn Hutchinson, 1957) 


Main Laka, horizontal 

Mixing Pond, horizontal 

Vartical, Main Laka and 
Mixing Pond 
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■■■lasiSHni 


>s 

? « 
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„ Length (ca) 

Fml I67rf. The reladon FtO ^ tcuoniiog to obssvitionf (lofuithmie acadt): points 
values of Richardson (ma tho atmosphcm; cmsei, voUm of Stommcl (BUioon^ BeimiMla 
and Woods Hole); trianiiOt vaiuao of Uiaawn, 


Fig. 7.6 Comparison of the used turbulent eddy 
diffusivities with the observed values < 
(Reproduction from ''Physical Oceanography' 
by Albert Defant, 1961) 
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SOfiE REPRESENTATIVE RESULTS FOR THE FAR FIELD HODEL 

(UNSTRATIFIED CASE) 
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&0 5aropl« Catt, Far-Fltld (Straclfltd C4«t, Lakt) 

Tht tampl« cast for far-flald acratlfiad and unatraclflad 
casaa art vary much almilar. In this ttcclon cht txcra in> 
formation that la naadad for tha atratiflad caaa will ba ihow. 

8 . 1 Problatn Sfatamant ; Thla la tha sama aa that for an un- 
atratifiad pond caaa, axcapt hara it ia raquirad to find 
valocity and tamparatura diotributiona in a atratiflad laka. 

8.2 Choica of Programa ; Sinca thia ia a atratiflad caaa, 
tha programa to ba uaad ara (1) TtlAIN 4B, (2) TMAIN5B, 

TMAIN5TB, TMAIN5VB and (3) TMAIN 6B. The data elements that 
go with these main programs are (1) DATAHL (2) DAHLS and 

(3) 0ATAML6. If the initial conditions are known (ie ground 
truth data and IR data), then the program TMAIN4TB can be used. 

The data element that goes with it is ITLKl. The authors in 
thia case had initial conditions for August 26, 1977 (Hathavan, 
1977) and, therefore, they used 'niAIN 4TB and ITLKl. If the in- 
itial conditions are not known, zero velocity and and ambient temp- 
erature can be used as initial conditions. In this case, the pro- 
gram TMAIN 4TB and the data element ITLKl that goes with it can be 
thrown away and yet velocity and temperature distributions can be 
obtained. The flow chart is shown in FiR.s (9.2 to 9 

8.3 Calculation of Input Parameters : In this section, the 

specification of the grid system, and the reference quantities 
chosen, will be presented first followed by the actual cal- 
culation of input parameters. Only those quantities that did 
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not ?pp«ar In the unstracifled section and are necessary for 
stratified case, will be presented. 

(1) Grid System ; The computational domain of 2880 neters by 
6720 meters In the horizontal plane as showrt In Fig. (8.1) 
covers most' of the lake. A grid size of 240 meters by 240 
meters gives a 23 X 13 niesh in the horizontal plane. The depth 
Is divided Into five layers, thus giving a 29 X 13 X6 mesh for 
the entire computational domain. 

(2) Reference Quantitie s: Reference quantities are used to 

non-dimenilonallze the Input parameters and they are given 
below: 

Reference velocity : 30 cm/sec 
Reference temperature: 30°C 
Reference horlztonal length: 6732 meters 
Reference dpeth •• Maximum depth 40 meters 

6 2 

Reference Horizontal eddy viscosity ■ 4.5 X 10 cm /sec 

2 

Reference vertical eddy viscosity - 10 cm /sec 
Pr - 1 is chosen 

6 2 

Reference horizontal eddy dlffusivity - 4.5 X 10 cm /sec 

2 

Reference vertical eddy dlffusivity ■ 10 cm /sec 

8.3.1 Input Data for Data Element "DATAI-IL '* (For main program 
TMAIN 4B) 

The calculation of the first 12 input data cards is sim- 
ilar to "INDATA" which was explained in section 7.3 of the previous 
section. Here the rest of the input data will be explained. 
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CARD NO. FORTRAN QUANTITY 

28 M^(1.1).M^(2,I).MAR(3,I) 

35 

This !■ CO b« ••Iccced bas«d on che domain type and an 
axampla how co maka che choice la given In Fig. (7.4). Thla 

daca can be seen In che Inpuc daca In secclon 3.4). 


CARD NO. FORTRAN QUANTITY 

36 MRH(l.l) , MRH(2,1) 

52 

The procedure for dr.ermlnlng MRH Is similar co MAR and 
can be decennlned very easily as Is explained In Fig. (7.5) 
This daca can be seen In che Inpuc daca In secClon (8.4). 


CONTINUED 




IG4 


CARD NO . FORTRAN QUANTITY 

53 Hld.l), HI(1,2)... 

HI(2,1). HI92.2). . . 

» 

si 

■ li* 

T.ils t«c of Inpuc daCA cards raprasanct tha non -di,mans Iona 1 
dapth macrlx. Tha dapch data for Laka Balaws slta is obcainod 
from gaological survay maps and chay ara non-dimanslonaIl::*.d 
asing a rafarenca dapcn of 40 macars. This data can be 
in cha input data in section (8.4) 

8.3.2 Calculation of Input Data for Data Element "DATAML5 " 
(For main programs TMAIN5B, TMAIN5TB and TMAIN5VB) 

The first 13 cards are the same as that of "DATAML" which 
explained in the section 3.3.1. Now the rest of the 
input data will be explained. 


CARD NO. FORTRAN QUANTITY 

14 NIN.NOUT 

Number of Inlet nodes (NIN) in this case 3 
Nxxnber outlet nodes (NOUT) in this case " 3 


CARD NO. FORTRAN QUANTITY | 

15 I,J,K V(I.J.K), V(I,J,K),T( X.J.K) 

16 
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Vhls fee of Inpuc daca cards arc for the inlet into the lake. 
^Ue discharge is introduced at three grid points identified by 
1*27, J"3 and K- 1,2 and 3. The discharge velocity is cal- 
culated uisng the following quantities. 

Plant discharge ■ 228.9 X lO^kg 
D.-scharge depth - 8 meters 
Discharge width “ 240 meters 

The discharge is in the x-direction (ie v-velocity only, 
u-velocity is zero) 

x'hc v-velocity is calculated as follows; 

V, - 228 X 10^ X 10^ 

'• .2 X'160FTr 2400 JT800 X 0.9926 

• 3.336 cm/sec 

This velocity is non-dimensionalized with reference veloclc • 

which is equal to 30 cm/sec. 

v(I,J,K) - 3.336 - 0.111 

ID 

The discharge temperature - 39.0°C 

Non-dimensional temperature - 39 - 30 • 0.1833 

— 

T (I,J,K) - 0.1833 


CARD NO. FORTRAN QUANTIiY 


It I,J,K U(I,J,K), V(I,J,K) i 

U 

20 ! 


This set oJ cards are for outlet velocity and outlet velocity 
is in the y-direction. The outlet velocity is equal to the inlet 
velocity . 
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Uq ■ 3.336 cm/ sec 

which after non-dlmenslonallzatlon gives 

U(I,J,K) - Uo - 3.336 - 0.111 

Uref “TiT 

V(I,J,K) - U(I.J.K) [ie, Vj^(27.3.K) - U^(19.2 .kJ 
ine outlet velocity is at I ■ 19, J-2, K ■ 1,2 and 3. 

6.3.3 Calculation of Input Data for "DATAML6 " (fqr main programs 
TMAIN6) 

Some as first 13 lines of "DATAML5" 

i 

8 . 4 Sample Input (For Far Field Stratified Case ) | 

In the previous section the calculation of Input parameters 
for different programs is presented. In this section the 
calculated numerical values are summarized in order for each 
main program. 
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8.4.1 Sample Inpuc for Main Program TMAIN4B (DATAML) 


2U 20 

U.jCb2222»i*V'o9 

l.j* 

0egl*lQ0*l*d» 1*0 

y • 

Oaj 

0 • g C u^o7 J * i* 

Ie^#yeU0.>2^8'»^J«il^ 

lejOuU^d »*UtU0u0i9'*Ue 0000046 

30e0 * 

» J«0*0et1 * 

31»7»i;*6'^8#1.37»*i*32 

2SyU#U*b00oo7»0e000g0o67 

Oe J000#2y #4 

0 • gO 75# 2>» • 4 

0eg5»29a4 

Oe iC»29i4 

Oe i5*2Se4 

0e^C»26.7 
0ec5*2ot9 
0e^C*l7.2 
Oe Jb»13e7 
0a>0Pl2«2 
0 1 4 D * 1 1 • b 

0 • jb ^ 1 1 • u 
g«oU^Xl*0 

0ig#gfg’U»u*g*0^u*o*g»0«0#C*7i2#2»2»9^0’0»U*Up0>0»0f0»0»0 
0»(j>j*0»u*g^g»0*j*0*0>7t292tb*ll#llail»4f0»0»0f0*0t0*0#0»0»0 
O»g«O*0*0»g'g«g*vitV»^»6»il»li*Ll*Il»U*i*l0»0tO»O*OfO*0f792#2r9 
0«o»U*U’0>g*g*g*g»3>il»lifllflIiXX*6^10^0»0»0#0t0#0*7»2f6ril*Il»4 
7'b*il#ll#il* 11 »6»iO*0#C»0*0»0*0^7»0*ll»lIflirllr4 
0»u8yfOtu»g*0»g*j9il«li*li9b*l»1090r0^y^U»U^0*0»3#ll*ll9b»i^l#10 
09g»o#y9g9U9 Il96*i0*7»2>29292p292^2*2^8* ll^b^lOtO^OiO 
u»0*g»7»c#2#b9i^»lX*il*iX*o*^*Afll9ll»ll»Il»XX9ll9ll*ll»lIfll#4a0t0»g»0 

79o«iX^li*iX»ti*Xl*^i»Xl»li9lI«i.l*il*Ii»lI^U94»u#090Oi0»0»090i0»0»0#0 

3#il#li»il9li#il#ll»il»ll*ll»ll96»l»l»i»l»109090»090»0»0»0^0#0»0*0»0 

09iltiifil93*t#l96*lx9ll*69lO»09U9g*0*u»G909UtO»OiQ9L*090»0'0»0 
b*i9l«i9iJ#0#095tl»l9lj#09g*0*0»UfU»0'0*0#0»0*0»09090*0*0»0 
0»gfg#g9U#'j#g*o909U*0909U90’492*2>o*0'0*090*0»0>09090*0 
0»g*j»U»09U*g9G*09O>U94»2»2>999»l»790^0»0f0»0»0»0»0»0»0 
0»U*y^0iU»u»0»w^0»4»4i#999»999*7f09090»o»09 0>0»0*0»492*6 

0#g*U»0*0*0*C9U*0»iO#9#999t997»Of090#0»0909090»49299*99S 

Opg»0»U»U90»y»0»499>999#X97»0»0#0»U»0»0»0»0»4»9#9»l9l»7 

0»0»0*0»09U'U94^i0^9»9»7>C»0»090*0*090»090^0»10*997»0*OfO 

0tg*U»0»M»U»4f2999*^^otg#0t4»2929292#2»29292#9»0»090»0»0 

0#u*0*4»292*999*9*'^^*i9a-92»^»9»9»l9i9l9l»l9l9lf790»0*0>0 

0#H>ai*99999»9»':9*9»9>9»499#9^99fi»U9090^0^090>090^0»0»0»0 

4#9#9*9*999»9»V»99T99 9»i9i9itl97»09U9j>0>0»0909090»0^090 

iO»999»99l»l9l9^9 9*'^9790*Of090#o>O^C90^0^0^Cf09C»C#090»0 

I»Je»0«*G* ’Oe «g«fO*»ge»0*^J«*Oa3g»C«06*0«47’U*bO 
2pje*0«^g«*(j«fw**0^’j«^0«^U*34fOe2g^C*72»C«95fOe50 
3*ge*0«*g«t0e »g«t0«'0* '0**u»34a0e69*0*95r0*9l90*50 
4»g•#0•»0•*0t*u•>Q•*U•^0•42i^0•40«0•^30t0•95'0•9i*0•S0 


Of PQ.,,-. 


IS 

■"'^UTY 


y 

y 


i 


1 
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6*j«90*9U«*0«»u*90**0**0» 3o *0«7290«9S*U« 53 * 0 • 27 * 0 • 

7»^«#0«#u«*0«*u**0**u««^b*0«32t(i«o5'0«^b*0*42»0*21*0* 

d*g*fO«^O**0«tw**0**JtX9^0*34fo*42*0*^<^*0*30f0*19*O*19 

9»u« »0« »u* »0 t * u«23* Q*2o» 0«27 .*0,34#U •42»0«42#U«30 *0«27» u. 19 

10»0*»0»f0«i9#u*19*0«2o»0*57»0,7b»0*b0t0«35t0«50»0«30*0*27#0*19 

il*0« »U« *0 tl9#u*27*0*50rU»oS»0.46t0«4bt0«dd*0«50»0«30»0,l9»0.19 

12»0« »0«19fgf 19*0«ii7»c*57f u«50f 0«3I»U«34f 0«91#0*50f 0»24 »o«19#0* 

I3#0*'0*i9»0«34»u«o9*0«d0»0*40*0«3l»0«46t0*9l»0*30»0*24»0«»0« 

i4#0*»U*30#0«#^i»0*t>0»j«579U«28fO«33»0«37iO«9i9U*50»0«24fO**0« 

^ .i5*0«^^»0«24»o*5o»U» J4*0*23*0«2d*0«2b> J*57» 0*36 »0«b0*0« 24^0* *0* 

16t0 •<i***O*b0#n»5ufU»l9*0«2l*^* #0«25*0«b7f0*3090*50t0*24f0« f0« 
17»0«32*O»32f 0*32 »0*»0,40fU .bD'0. 40 »0*24t 0*24 »0« f0« 

Id #0* 32*0* 32 rn« 32 *0«»0*#0«#0«3h»0* 72 »0t 3b 
19#0*32»U«32 90«3«^»0«#Q»*U«»0*2d*0«57*Ot2a*0*»0**0«»0« 
2090**0»90f9(j« f0t9U*90«2d90»57f0«2b90* 90»90*90« 
2l9Q«90«90*»U.90.9U*90«4J*0«dO*0«4j90*»0«90*9a* 

22 #G« 90«90**0« 90»t0«90«3490*6^90* 34 »U**0t90«#0« 
23f0«*O**0*9b«90* 32 *u«32*0*3590«7b*0*36^0* ^0* #0* 
24f0*90*90«9o««^2#0*3<;»0«o590*bb»u«o9»0*34 90«90t'0*»0« 
25#0*»0*90«9U« 32 #0* 6b 90* 65 *0*32^0# 34 t0« 34 #0*90*#0»»0« 

2b 90**G»90* 3r! 9 0 * 32 * 0 • (>b 9 J • 32 * 0 , 32 ^0«90«^0**0*909*0« 

2790* 9U990«329u*u5^0*3090*19^0, 9Q* 90« 90* 90*9Q« iO* 
2d90«*0*90«329U9o5^0*3G90»l9*0*90*9Q«#0*90**0«90« 

29 909^u«90« 32 9 u 9 j2 *O«579O«19*O»9 O«i0»9O«9O9*O»9O« 
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8.4.2 Sample Input for Main Programs TMAIN5B, TMAIN5TB 
and TMAIN5VB (DAT.\.*IL5) 


1 zj 

r i. « ' 

6 3tC * 

7 J.0CC2673 

9 leOf Le.C^22a,( 3sU4 

9 UCCC4r3,-0.30:Cl9f JsuCJCc4d 

17 ir.O 

11 H36C«WfOe3fOs7 

12 ns7|Cs 69 9tl.37,-l«3: 

13 25C«: iCsJai:667,O.COrwC667 

14 3,3 

15 ..7 9 3 » Itw:..\3sl lltJs 1333 
:*^»3»2,js:,3.i:i»:.u33 

17 4.7, 3t SfZ.ZfZ.l l!i7e !tt?3 

IS ;7,2»i»Csm,j.c 

19 17»2r :• J*Ulr- .r 

•PsliltUsC 


no 


8.4.3 Sample Input for Main Program TMAIN6 (DATAIIL6) 
CARD NO. FORMAT & VALUE 


1 2 C 2 J 

2 C»0CC222:»l,9JC9 

s i»iJtu»2::222ati 

<• 1CC,1.3. 1 .r 

S 3.0iS(»i,»C.C3S.>S»0.: 

» c.w 

7 C.3CC2673 

B i.o»c.oo:2:a»63«n*( 

9 3.ocw4.:a»oc*o;}cci9» -w.crccc46 

10 33*0 

11 4369.3.0*3*0.0 

12 31.7.C.69S.1.37.-1.32 

13 *..>0*C.C* J'JC667.r*3CC3Ct67 
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8 . 5 Program Execucion Procedure 

The execucion procedure for far field stratified case is 
similar to the unstratified case which is explained in section 
(7.5), except TMAIN 4T, TIIAIN 5 and TIIAIN 6 have to be replaced 
by TItAIN STB, TIIAIN 5B and TMAIN 6B and the data elements 
ITPKl, INDATA 5 have to be changed to ITLKl , DATA1.IL5 . 

8 . 6 Sample Output 

The sample output for far field stratified is similar to 
Che near field which is given in section (6.6). 
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SOME REPRESENTATIVE RESULTS FOR 
FAR-FIELD MODEL (Strati red Case) 
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Fig. 8.3/elocity distribution at the aurface In the Main Lake at Lake Bo lews 
site for August 26, 1976. 
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APPENDIX A 

THE EQUILIBRIUM TEMPERATURE AND THE 
SURFACE HEAT TRANSFER COEFFICIENT 


The nee heat tranafer through a water surface is composed 
of radiation penetrating the water surface from above, radiation 
out of the water surface, evaporation, and conduction transfer. 


I 

These are indicated schematically in the following figure. 
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Fig. 1 Heat Transfer Mechanisms at the Water Surface 
The following heat balance results, 
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9. 


•a 


where net heat input ■ ®nn * ®br "" *" 

Now, equation (A^l) may be rewritten as, 


- ®L 

I'There^ 3? - net absorbed radiation » AO 

»L " *br * * *0 


D 

A . 1 Equilibrium Temperature Calculation. Te (See Appendix ) 
Under equilibrltim conditions equation (.A ,) yields, 

•n “ ® ■ »r • »L 

SO that 






(A-3) 
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Then by using Che approximate formulae in Harelman ec al 

(1975) we obtain by setting T - T , 

8 8 

0.94 1.16 X 10 *^ (T*)® ( 140 . 17 c*) 

*c • 

- o.»7c<V)® + r (w) C <•*-%) ♦ .. (^ *4) 

Where ■ clear sky solar radiation 

C cloudiness ratio 

1 " air temperature (°C or ®F) 

Tg" equilibrium temperature (®C or ®F) 

T*- absolute temperature (®K or ®R) 

2 

F(W) - windspeed function (BTU/ft /day, mm Hg) 

e^« saturated vapor pressure at water surface temperatura 
(ram Hg) 

e ■ saturated vapor pressure at air temperature (mm Hg) 

a 

a - Stefan-Boltxmann constant - 4.1 X 10”® BTU/ft^, 
day, 

Bowen constant ■ 0.255 mm Hg/°F (see Appendix B) 

W “ windspeed (mph) 

For natural water surface, 


F(W) - 17W (A-5a) 

and, for an artificially heated surface, 

F(W) - 22.4 (T^ - + 17W (A-5b) 

6 SL 

Thus , equation ( A-^ becomes , 


0 *^ <?.„( 1 - 0 . 65 C*) + 1.16 X 10 *^*(T *)®( 1 -MD. 17 C*) 
ac a 

- 0 . 97 q(T 4 17 W [(•-•.) + 0.255 (T^-Tj>- (A- 6 ) 

a a a a a 


122 


Location - Miami (latitude 26°N) 

Date - December 20 
From CRC (1970). 

®T « 25®C - 0*43 psia 

a • 

«.27®C as crueaa. “ ®a “ % “ 

From Harleman et al (1975) , 

2 

» m 425 Langleya/day ■ 1560 BTU/ft /day ••• using 
; SC 

100%sunshina curve at Dec. 20 


Note: 1 Langley/min. - 220. >2 BTU/ft“/day ... using 

1007o sunshine curve at 26‘^N, December 20 

^ o 2 , 

Note: 1 Langley/min. * 220.62 BTU/tt*", hr . = 1 calorie/cm ,min. 

Then using equation (C-6) with C=0 

0.94 (1560) (1) + 1.16 X 10“^^ (5.37x10^)® (1) > 4250 

4 X 10 ® (5.406x10^)^ + 170 C (.255) (2) i-(.08) (51.7)] 
4206 close enough! 

• . T - 27®C 

(where 1 psia * 51.7 mm Hg) 

Then from equation (A-8), 


K ■ 3.88 X 4.1 X 10 ® (5.406x10^) ^ + 170 (.255+0.0251x51.7) 
K 290 BTU/ft^, ®F, day 


where 


3e 




T-T 


av 


.0251 


l :3 


or, 


0.94 9^^(1-0.65C^) + 1.16 x lO"^^ (T^*) ® (1+0.17C^) 
- 0.97p(T +[ 22.4 (T-T)^^ + 14Vj 

• O m 


+ 0.255 (T^-T^)]- 


V\- 7 ) 


. .'.•oJwU'c. Jor knowr, sc , i , c , T aru 

• s 

bv trial anJ error methods. 


T c n 'b o ' 0 1 o r- ■ 1 'I’-o d 
e 


A . 2 Surt'gce Heat Transfer Cootficient (,iO 

From Harleman et al (1975) the surface heat transfer eo- 
etfieient K, can be determined as follows 


ar 


av 


ap 

ar 




, since 


0 . 


av 


av 


whore -<T, + T^)/2 


Thus , 


♦ 2 


ae 


K - a.saaCt^’' + F(W)C(^) + C. ] 

^ Tav^^ T»T ° 

av 


* >:<‘kv- «a> * S'V- If^ 

av 


(A -8) 




iHM. 


3 T 


av 


f 


for natural ^/atar surface 

for artificially heated 
water surface 


N um;’,i e r i c a 1 i' x a -’.p 1 e 

— . -- .,W,... M ■ , .— . 

Consider natural water surface 
C - 0 


T = 7 5^: 

, J 


10 mph 
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A. 4 Discussion 


The quilibrium surface temperature, T naturil 

water surface, can be greater than the atmospheric temperature, 

T , '..’hereby T increases from values below T up to T as 
equilibrium is reached. As can be seen in the figure below 

can be greater or staaller than T depending on the time of the 
day. Simply during the hours of sunshine and '• 

at night when the water surface i** cooling. 


*Texnp« 

(^) 



12 16 20 24 


Time of Day • CHours) 

Fig. t *- ) Daily V’ariation of aii. temperature and computed 
equilibriugi temperature. 

* This plot is taken from Parker (19o3) and ha.s no relation t^ 
the numerical example given in this paper. However, the 
nu. .erical example considered 100";. possible hours of sunshine 
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APPENDIX B 

HEAT TR.\NSFER MECHANISMS 

The analysis in this section is taken from Harleman et ai . 
(1975) and is summarized 


B. 1 Solar Radiation (short wave) 

The incident solar radiation impinging on the vater sur- 
face may be expressed as 


l>/here ^sc = clear sky solar radiation obtained using the 100?o 
possible sunshine curve (given in Appendix A) 

C = fraction of sky covered by clouds. 

The reflected solar radiation is typically 6?c of incident 
solar radiation, hence the net solar radiation absorbed by 

the water surface is, 

- ^3 - (9g^ - 0,94Og^(l-0.65C^) 


B . 2 Atmo.spheric Radiation (l o ng wave) 

The basic equation for the incident atmospheric radiation. 


IS given as 




Where 


t !ia ' 
>;ives 


t = average emmitance of the atmosphere 
0 = Stefan-Boltcmann constant 

= air temperature (absolute) 

However, good agreement with experimental data has indicated 
is a function of T^ , and specif ically . T dependence 
best results for atmospheric radi.ition at: low temperatures. 
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as well as providing a good fit at high temperatures. Clear 
sky incident atmospheric radiation . ®ac , may be expressed as. 

and, then incident atmospheric radiation including cloudiness 
may be expressed as, 

•» ■ ■** 

A figure of 37 p is usually accepted as reflectance of a water 
surface to longwave radiation. Thus the net atmospheric 
radiation absorbed by the surface is 

’an ■ S " ®ar ■ 

and, therefore, we have 

, - 1.16 X 10'“(T^®(1 + 0.17C*) 

'•’an * 

B.3 Longwave Radiation from the Water Surface , ® br 

Karleman et al (1975) note that the emmissivity of a 
v;ater surface is independent of temperature and salt: or colloidal 
concentrations, and gives a value of 0.97. Thus we obtain , 

C|»j^ - 0.97(j(T*)'^ 

Wnere = water surface temperature. 

B.4 Evaporative Heat Flux , ® e 

E'/aporation from a water surface occurs as a result of both 
forced (wind-driven ) convection and free (bouyancy driven.) 
convection. The evaporation from a water surface is usually 
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written (.mass/area/ time) as 

E - py(Wj) (•, - »i> 

Where, E = mass vlux (mass/area/ time) 

p = density of water 

W^= windspeed at height z above surface 
F(Wz) = windspeed function for mass flux including both 
free and forced convection effects (length/ time/ 
pressure) 

e = saturated vapor pressure at T 
s s 

e = vapor pressure at height z above surface 

'Zt 

Then writing the above equat ' '>n in heat units, the evaporative 
heat f lux , is given by. 

,, - P(Mj) («, - e^) 

Where F(W^) = windspeed function for heat flux (energy/ area/ 
time/ pressure) 

Now, dropping the z subscript (and assuming W measured "z" 
above the surface W at the surface) we may express F(W) 
for a natural water surface and for an artificially heated 
water surface as 

F(W) = 17W... natural water surface 

and 

F(W) = 22.4 (T -T )^^'^ + 14W. . . artifically neated 

S 3. 

surface . 

B . 5 Conduction Heat Flux . ® c 

Bowen (1926) has suggested t’nat conduct ion c.in be directly 
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related to evaporative fluxes by assuming that eddy diffusi- 
vities of heat and mass are identical. Thus, 


V. 


Where 


T *T 

■1 ft 


•.-•a 


■ Bowan Ratio 


and C^“Bowen constant 


0.255 mm Hg/"F 


and, therefore the conduction heat flux. c , may be expressed 

- CjjF (W) (T^-T^) 
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9.U DESCRIPTION OF COMPUTER PROGRAMS 

For the readers convenience, the computer programs and 
their description are included in this section. There are 
two sets of main programs, one set for the near field and 
the second for the far-field. These main programs are des- 
cribed along with the flow charts in subsection (9.1.1) 
Subsection (9.2) describes subroutines for both the near field 
and far field. 

9 . 1 Main Programs for the Near-Field and Far-Field 

There are four main programs for the near-field. They 
are AMAINl , AMAIN2 , TIIAINI and TMAIN2 . AMAIN programs are 
for velocity only, and TliAIN programs are for velocity and 
temperature. AMAINl and TAMINl are to be used for constant 
depth and AMAIN2 and TMAIN2 for variable depth conditions. 


Hi 


PUP*' 
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9.L.L AMAIM 1 (Main Program for Near-Field) 

The main program reads in the data, initializes the nec- 
essary quantities and coordinates the subroutines and calculates 
velocities only for a near field problem. The parameter state- 
ment defines the size of the computational domain. The sub- 
routine READ3 reads MAR and MRH matrices. The subroutine 'II3ITIA' 
sets the velocities in the receiving basin equal to zero. If 
there is current, the subroutine 'CUR^3T' has to be called after the 
subroutine 'INITIA', which would set the velocities everywhere in 
the domain equal to the CURNT velocity. Then it follows a set of 
subroutines to calculate the velocity field for the entire domain 
for the given discharge and ambient conditions . 
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•DULL ( 
I 
Z 

3 

4 

5 

6 
7 
S 
9 

n 

11 

iz 

13 

14 

15 

16 

17 

18 
19 
23 
21 
22 

23 

24 

25 
2S 
27 
2 8 

29 
3C 

31 

32 

33 

34 

35 
35 
37 

30 

39 

40 

41 

42 
4? 

44 

45 
45 
47 
49 
4 9 
5U 

51 

52 

53 

j 4 

ss 


! ) • AMAIM 

C CALCUL4TC5 C,V,b, rc» VARUCLL 0»’Mh LAkC W I Tfi £Tft£TCMG 

C ALOOPlThM 

p A h A t:: fs = : i , h m % : ^ s r ; j , j* o 

0 »,S :0f* LM I N, JN ,« N > t V ( I^ ♦ JP # M « • < I ^ » J 4 t ) f n H ( ! k 

€••41 If., JN ,hM , L.a. i !h* ,J.4 ». ) ,P ( :• 4 , J. *.) ,C < IN , J»i ) 


I , YIM < IN : N, Jf^ 


.) 


CWHtn T ( 1.^4, jw \ ) , Jr IMI r. , Jl. 

CH I( r., JN) ,HX C IN, uM ,MY ( IN , J* ) ,*- A/4 « I % , JM , H nH ( I W N , J 
COPi X C IN, JN) ,U PS Y < IN , JS I 
OlMCNSIOr. A3(KN) 

Zf.Ml=lN-l 
«5AO I, IPUN 
PEAD 1, L4 
format IIS) 

PCAO 2, VVIS, AdP 

A 31 1 ) =VV IS 

A3I ?) -VV IS 

A3I 3): IS 

A 3l4)rvV IS 

A 31 5) :VV IS 

PEAO 2, AI,AH,4V,AP 

READ 2, lP5,KAxI T ,CMrCA, AnbP 

REAO 2, SX,0Y,u2 

READ 2, AA,ea ,CC 

DL2=IOX»>OX**JY*OYJ/ICX»ax^DY*CY) 

forma T ( ) 

1F( iruN.bT,: ) CO t: 3 

CALL lNlTIA(IN,JN,nS,I^4,J*S,U,V|k ,S,P,I,J,^,I 

CALL REACT!! ,J,IN,J4,Ik|JW ) 

call H^:GHT(I,J,K,:4,JN,KN,h:,HX,HY,CCJ 
CALL I NLE T( : , J, K , IN , J.N ,KN , L , V , i A , a fa ) 

TTOTzC.O 
60 TO 4 
CCNTINcS 
rewind 7 


N', JWN, KN 
#i !IN, JN 
C! IN, JN, 
4 ) , F H ! I 


W, J»,/4b 


RSAO ! 7) ( ( ( U ( 

I , J , K 

) fK 

~ 

1 f 

\ 

)tjz 

« 

A 

, J 4 

C ( ( 1 V ( 1 , J , K ) , K 

z 

1 , h f. J 

f J - 

1 

f J4 

} 

f 1 = 1 

» 

14 ) 

C{«(D(I,J,K),K 

z 


, J - 

A 

f ^ 4 

) 

1 1 = 1 

f 

If. ) 

C(((E(I,J,K),K 

z 

: , K 4 ) 

, J - 

1 

, J4 

) 

» I = 1 

f 

14 ) 

C( ( ( Zi* 

) 

fKZ!, 

H4 ) 

> 

J »» “ 


I J ^ ' t 

) 

, r • 

C( ( (Wl I , J,K) ,K 

z 

: , r. f ) 

It 

i 

, J 4 

) 

.1 = 1 

f 

IN ) 


K 

: 1 , K N 

) »J 

Z 

i.j 


l.l: 

1 

• I‘N 

C( 

K 

) ,K rl 

fKN 

) 

f tJ n 

z 

I , Ju 

N 

) fl 

C( (P(U,JU),JW 

z 

1 f G WN 


h 

= 1 . 

» 

i 

V..S ) 




1 

, Jf*), 

1=1 

f 

IN ) 

t 





CC(HXC,J),jrl,j4) ,Irl,:N) , 

C( (MY! : , J ) , jr 1 , j“) r I •] ) , 
c! (MA R! I , j) , j = jf. ) , m, :m , 

C( (MPH! !• ,j^) , 

C A I , A M , A V , A ? , 0 X , C Y , C r , : T , T A C > , 7 A J Y , T T C T 
REtalNC 7 

Call lNL(.^!I,»Jti^flNf«JN,KN,t_','i/,AA, C) 

CON tinui: 

^lAO 

0 0 5 L A : , 1. s 
ITjTrTTjT^CT 


.ILL L w‘N, J..L, IW, J, 


« H L C ^ H N » 


)» 

, K S ) , 
KM , 

4 , J •• N ) , 


I 


CW •OT.AI, 
call UAN 

call uvr 

call ourvcLt 1 tJi a . iN,j>i,Kr<,H,n) 
call OLDUVt I • J»K , ;i« ,JN ,KL ,U tV .C / C I 
CALL OLOLVI 1 , J.A .lN,JS,KN,h,G,U,Vl 

CALL a*H( I, J,K, U,JW,IN, JN.K.’i, UN, JWN , J , V , fcM , H I , OX ,rt,DZ,MRHl 
CONTINUE 

CALL WhATIJ(I,J,K,IU,JU,IM,JN,KN,US,J4N,U,WH,>«AR| 

CALL nLffHII,J,K,IW,JW,:N,J%,KN,UN,J..S,U,V ,WH,hI,HX,HY, 
COXtOY.DZ.HrH.UWWI 

CALL RW»tI,J,K,lN,JN,KI,,U,V,«,WR,Hl,MX,HY,C:,-»9J 
call stone TU,V,WH ,P tl fOfK f ^WfOto ,XN |«JK ,KL , ,C ,1 f 

CHX,HY, hi ,K4R, HSH, AX , AH, AV, iP.OX Y ,02 ,DT,TAUX,TlUY,V.,HR,«RH,1 
CALL P.irAPA(AI,AM,AW,Ah,0X,rY,O2,OT,CL:,hAx: f ,t.P5,0‘'i:0A, 
CARbP,TAUX,TAUY,TTCT ,HAR ,H( h,:n, jr, , I.t. ,JWNI 
call PRCnCRt I WN, Ib,bMLOT , J. , jv.t, , IN , JK I 
call PNINTiTI ,j,:w,ju,xint ,Y1NT , in, JM 
call PRtOPCI IW, JW ,UN, jwU ,EH| 

CALL PCPSXYtX ,J,Ih,Jf.,t.PSX ,CPSY 1 
CALL PRITCXd TN,t.XI 

/■All oaD,*!T,vt.. iki.rt.'ti. luk' Di 


CALL PRtOPCI IW, JW ,UN, JWU ,EH| 
CALL PCPSXYtX ,J,Xh,Jf.,t.PSX ,CPSY 1 
CALL PRITCXd TN,t.XI 
CALL PRPINTd b, Jy ,1WN, JUN ,P I 
CALL PPUVd,J,K,IN,jN,^N,U,V) 
CALL PR'bH(Xy,JU,K,UN,J«N,KN,bRH 
FNO 
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/\:LU::2 ,;iain ProKran. 
This is same as /\MAIN1. 


for Near -Fie Id) 

except:, this main program 


is 


to 


bo uood whon the dopch U varlablo. Tho subroucino 
compucos olopos of the botton, In x and y directions 


CR,\DS 

respuc lively , 
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OJ.LCll • AMAIN2 

1 C CALCULATES U,V,W, TOR VAPlACLc DEPTH LAKE WITH STRETCHING 

2 C ALGORITHM 

3 parameter IN=ia, JK::21,KN-'S ,lUNrl7,JWN=: J 

H OIMENS ION U( I N, JN ,kM , V f IN , JN ,KM ,W C IN, JN , KN ) ,UM ( IW‘;, , KM , 


5 

6 

7 

8 
9 

13 

11 

12 

13 

14 

15 

16 

17 

18 
19 
23 
21 
22 

23 

24 

25 

26 
27 
2S 
29 
5Q 
31 

52 

53 

54 


CWR( IS, JN,KM I UKH < IwN ,JkN |K N) ,PC IWN , Jb S) ,0 ( IS , Jf« ,KM •£ ( IN, JI^K N) , 
CWHLOTt INN,JWN ) , XILT ,JN > , YIS T < I N , JM , H ( I S , JS , K S ) , C ( IN , JM, KU > , 

■' CHIi IN, JS ) ,HX ( IN, JM ,HY ( IN , JS) ,MAP ( IN, JS ) , MRM i IWS , JWS? ,PH ( I WS, J*iN ) 
COPSX ( IN, JM ,0PSY (IN ,JN ) , JX C JN ) 

OIHENSION A3(KN) / 

lNMl-lN-1 

READ 1, IRUS 

READ 1,LN,LLN 

1 FORMAT (16IS) 

READ 2, VVIS, A6R 
Alt 1) = VVIS 

A 3 ( 2 ) = V V I S 

A3« 3)-VVIS 

A3(4)=VVIS 

A3(5)=VVIS 

READ 2, AI,AH,AV,AP 

READ 2, EPS,M AXI T,CPEGA,ARbP 

READ 2, 0X,3Y,32 

READ 2,AA,B3,CC 

READ 2,TAUX,TAUY 

OL2=OX«3X 

READ 2,3.T 

2 FORMAT () 

IF( IRUN,CT,C) GO TO 3 
TTOT-0. J 

CALL INI TIA (I K, JN ,KN ,xkiN , j;^N ,U,V ,W ,WH ,0 ,E ,P, I ,J ,K , lU, JW , AR3P) 

CALL RLAD3(r»J,lN,JS,lW,JW,IUN,J*N,HAC,MRH) 

CALL HEIGHK , J i K , I N , Jf. , K N , HI , H X , H Y , C C , J X ) 

CALL 6RAD5K X N, JN ,KN ,I kN , J-N ,HI ,HX ,HY ,HAR , MRH,DX ,C'Y) 

GO TO 4 


t 


55 

56 

57 
33 
59 

♦ 3 

11 

♦ 2 
♦ 3 

14 
»5 
16 
*7 
«8 
*9 
iO 
>1 

12 

>4 

15 
>6 


3 CONTINUE 
REWIND 7 

READ ( 7 ) ( HU(I , J ,K ) ,K rx ,KN ) ,jr 1 , JS) , in , IN) , 

C<C(V(I,J,K),h=l,KM,J=l,JN),l = i,IN), 
C(nO<I,J,K),K:i,KN),J=I,JN),in,IS), 

CC fJW — ifJwN) |IW"1 flW^) f 

C(((W(I,J,KJ,K=1,KK) ,J=l,JfO,I = l,lfJ) , 

C( nwS( I, J,K),K = :,KN),J = l, 

C( ( (URH( |K ) ,K=1 ,KN ) , JW = :, JmN ) , IU = 1, IWK ) , 

Cl (P( IU,Jb),Ji<=l, JkN ) ,Ib = l , IV.M 

Cl iHX( I , j ) ,j=i ,jM ,i = i,:n ) , 

Cl ihYi I , j) , j=i ,jf ) ,: n, IN ) , 

CIIM*RII,J>,J=I,JN IK), 

CIIK^HIIVd,J.,l,J« = l,JWN),;H-l,IWN), 
CAI,»H,AV,AP,DX,nt,OZ,OT,TAUX,TAUY,TTCT 
REi.IK '0 7 
4 CCNTINUl 

DO 6 LLrl,LLN 
DO 5 L=1,LS 
TTOT=TTOT«OT 


r 
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57 


call 

S£ 


CALL 

59 


CALL 

63 


CALL 

61 


call 

62 


CAM, AV 

63 


CALL 

6<4 


• CALL 

65 


CALL 

65 


CDPSX. 

67 


CALL 

6S 


CHRH,I 

69 


CALL 

70 


Ck,0T, 

71 


call 

72 


call 

73 


CALL 

74 


CALL 

75 


CALL 

76 


CALL 

77 

5 

CONTI 

75 


CALL 

79 


call 

30 


CDX,OY 

31 


CALL 

32 


CALL 

33 


CHXfHi 

3M 


CALL 

35 


CARBP, 

36 


CALL 

37 

6 

CONTI 

33 


CALL 

39 


CALL 

90 


CALL 

n 


CALL 

92 


CALL 

93 


CALL 

94 


CALL 

?S 


CALL 

96 


lNC 






Ul 


TIlfMtJl (..lain Prov’,ra:.i for Noar FielvO 

This is a main proj’ram and is used for obtaining’. volooity 
.and temperature dl.srribution in the near field of a eonst.int depth l\isin, 'Hie 
parameter sf.itement defines ihe si:;e of the computat iona L 
domain. The subroutine RKAD 3 reads MAR and MRH matriee^5. 

The subroutine INITIA initial i.’.es t lie velocity aiul pressure 
field. The subroutine INITIT initiali.tes the temperature 
field. It sets temperature in the whole dom.ain equal to t lU' 
reference temperature. The Flow Cliart wliich the main pro> 
follows is shown in Fip, . ( 9.1). The subroutines .ire .ilso 

■;iven in the Flow Ch.irt . 


READ DATA CARDS 


142 



Flow Chart for hear Field 
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THAINI 

FARAriCTCP XNztft ,3Nr229HM:5tI4N:i7,JVNr21 

OIhCNsION uCl JH,KN I fVMN, JN ) ,4 UN^JN N I ,y M ( IWNt JW M» KN) t 
CURCXN«JS ,KN| , «JWN » KN ) t P ( IW N t N ) « 0 ( X N « JN f KN ) »C U N t JN ,K N | , 

CUHCOT llWft tJtUN !• XlNT UN fJN I » YINT (IN t«^N I fH (IN 9JN,KN) »G( IN, JN, KN) t 

CHl(lN«JN) 9 H)r( !N»JN) 9 HY(IN»JN|,MAR (lN,JN|yPRH(lUN,JWN} 9 FH(XWN,JWN) 9 
C0PSX(1N9 JN) 90PSY(XN 9 JNI 
OIHCNSION A3(KNI 

OlHtNSION T( I N 9 JN 9 XN ) ,TP (IN ,JN ,KN I 9 TO (IN 9 JN 9 KN I 9 RO (IN 9 JN 9 KN) 9 
CPXNTX( xN 9 jN 9 K N> i^lNTYdN 9 JN 9 HN) 9 yO( IN 9 JN 9 KN ) 

OIHCNSION TW( iWNyJyN 9 KNI 9 PO W ( XWN 9 JU N 9 kN I 

XNH1:IN-1 

READ r, ^XPUN 

RCAO I 9 LN 

RCAO I 9 LLN 

1 rORKAT (X5I 
READ 2t VVXS 9 ^BR 
A3(ll:VV IS 
A3(2I=WVIS 
A3(3):VV1S 
A3iftirvvi5 
A3(5I:WIS 
B3=VVIS 

READ 29 AI 9 AH 9 AV 9 AP 

READ 29 EPS9MAX1T,0HEGA,ARBP 

READ 29 DX 9 OY 9 O 2 

READ 2t TaI?TaH 9 TaV 

READ 29 A 9 B 9 C 

READ 2t TO 

READ 2f AKT 9 EUL 9 CW 9 CB 
READ 29 AA 9 Be 9 CC 
READ 29 TLL,TMH 

2 FORMAT ( I 
0L2-0X«0X 
7REF=T0 

RREF = A«B 4To**C ♦Tc^To 
XFdRUN.GT.O) GO TO 3 

CALL R£A03(I 9 ^ 9 !^!^^ 9 lU 9 JW,lWN 9 JWN 9 HAR 9 HRH) 

CALL INI TIA (I Nt JN«KN 9 IWN 9 JWN ,U 9 W fUHyC 9 E 9 
CP 9 I 9 J 9 K 9 IW 9 JU 9 ARBP) 

CALL iNlTITd 9J,K 9lN9JN9KN9lb9JW9lWN9JUN9 A9 8 9 C9TfP0fHAR9MpH9TRCFt 

CRREF 9 TU 9 RCU 9 TC) 

CALL HE I GMT ( I 9 J 9 K 9 I N 9 JN 9 KN 9 M I 9 H X 9 H Y 9 CC ) 

CALL INLETd 9 J 9 K 9 IN 9 JN |KN tV 9 Gf AA 9 BB ) 

CALL iNTEHPd 9 J 9 K 9 IN ,JN 9 KN,T 9 TD 9 TLL ,THM) 

60 TO 4 

3 CONTINUE 

CALL REA02(U9V9WH 9 P 9 I 9 J 9 K 9lU,JW9lN9wK9KN9lWN9JWN 9 D 9 E 9 Hl9 

CMAR9HRH9Al9AH9AV9AP9DX,OY,0 2 ,OT 9 TAUX,TAUY,W,bR,WRH,TAl 9 TAH,TAV,A>^T 
CfCB9CW9A ,B9C9EUt9 T 9 TW 9 RO iROW ,TE»RPEF ,TREF ,T09 TAMb ,TTOT) 

CALL XNLET(IfJ 9 K 9 lN 9 JNfKf. fV 9 G 9 AA 9 B 6 ) 

CALL XNTEHPd 9 J ,K 9 IN , JN 9 K N 9 T 9 TD 9 T LL ,THH) 

4 CONTINUE 
REAO 29 TAMB 

TE-I TAHB -TRET )/ TREF 
READ 21 TAUX 9 TIUY 
REAO 29 CT 


MB E I H 


1A6 


57 

sa 

59 

6C 

61 

62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
8;^ 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
201 
102 
103 
1C4 
1C5 
IC6 
1C7 
108 

109 

110 
111 
112 
11 3 


00 6 LL= IfLtN 
00 5 L=1 ,ls 
TTOT r TTOl^uT 

CALL £R4CPcIdNtJ4K,IbtJU«DTtWM,yHl07,KN9HRHI 
CALL 

CALL WHATljClfJfKtlWfJ.tlSfJSfKNtlyNtJuNtUtUHvHARi 

CALL INTE II ,J ,K ,IK,JN |KS ,U, V ,y ,HI ,hA ,HY ,H AR fX IM ftlNXf A 3, AI , 

CAH,AVt’lAUX,TAUY,0X9CYfD2fCfrtCTfDPSX»CrStfAP| 
call R 0 lN^X<IfJtK,INfJKfKN,DXf 0 YtD 2 ,R 0 ,AP,EUL 9 HI, 
CHAR,RlNTXfMX,XlKT ) 

CALL ROINTYII ,JfK ,I N ,JN ,KN 9 OX ,DY ,02 ,R0 , *P »£UL tHi AR. 

CRlNTY»Hy ,yINT I 

CALL DPSXyci,J,IN,JK,Iy,jy,lyN,JyN,CP5X,0PSY,P,0X,DY,MARI 
CALL FORCE<I,J,iy,JW,XlST,yiM,yHLDT,DX,DY,HI,HX,HY,MRH, 

COPSX ,OP$Y,rH, AP ,irj,JN,IUN,JVN) 

CALL PKE 2IEPS ,MAXIT ,IN ,JN ,P , ITN ,OPS X ,DP5 Y ,rH,0L2 ,CPEGA , 

CHRH, 1, J, K,I W, JW ,UX,CY ,IX , ly N , JU N , AR DP ) 

CALL UVT 11 ,J ,K • IW ,jy ,IN V JN,KK tlkU ,JWN,U ,V ,0 ,E ,H,G,0X,0Y, 07, 
CRIKTX,RINTY,E0L,y,0T,AI,AP,AH,AV,A3,Hl,HX,HY,P,MAR) 

CALL UVTOP(H,G, T AtlX ,TAUY,1,J,K,0Z,IN,JN,KN,H1 yMARI 
CALL 0UTVEL(I,J,K,1N,JN,KN,H,G) 

CALL OLOUVC I, J,K,IN , JN ,K ,U , V , C , E > 

CALL OLDUVd , J,K,IN , JN ,K N ,H ,G ,U , V I 

CALL RyHd,J,K,ly,jy,IKvJN,KN,lWN,JWN,U,V,WH,Hl , OX ,DY ,07 , PRH ) 
CALL yHA TiJd ,J ,K ,1W ,jy, IN, JN,KN , lWN,jyN,y ,WH,HAR) 

DO 2C 1=1, IN 
00 20 J=1,JN 
UDCI , J, n=ud ,J ,11 
2C CONTINUE 

DO 3C 1=1, IN 
00 3C J=1,JN 
Ud,J,n=G.C 
30 CONTINUE 

CALL TEN 14(1 , J,K ,IN ,JN ,KN ,U ,V,T ,TD, CX , 

CCB, 

C0Y,DZ,W,DT,TAI,TAH,TAV,B3,HI,HX,HY,HAR,AKT,TREF,TAHBI 
CALL TEMB2d,J,K,lN,JN,KN,TC,0X,DY,C7,PAR,CB,HI,AKT,CW,TAH8, 
CHX,HY,T,TPEF,TAV,TAI,TAH,B3,DT) 

CALL lNTEPPd,J,K,IN,JN,KN,T,TO,TLL,THM> 

CALL OUTEHPd ,J,K ,1N ,JN,KN, TO) 

CALL OLDTCI, J,K,IN,JN,KN,T,TPI 
CALL OLD Td ,J ,K f IN, JN ,KN ,TD ,T ) 

CALL TEQBd,J,K ,INyJN,KN,T,HAP) 

CALL DEN$TYd,JfK,lU,jy,lN,JN,KN,lUN,JWNtA,B,C,HAR,MRH,T,Ty, 
CRC,RCU,RREF,TPEF> 

00 40 1= 1, IN 
DO 40 J=1,JN 
y (I,J,l)=WDd ,J,1 ) 

4C CONTINUE 

5 CONTINUE 

CALL RyPHn,J,K,IW,jy,IN,JN,KN,lWN,^kN,U(VvUH,Hl,MX,HY,. 
CDX,DY,D7,PRH,yRH) 

CALL PyRn,J,K,lN9JN,KN,U,V,y,UR,hItHX,HY,D7,MAR) 

CALL ST0RE2(U,V,yH,P,I,J,K,lW»JL|IN9JN,KN,lWN,JWN,D,E,HX,HY| 
CHl,HAR,MPH9Al9AH,AV,4P,0X,0YtPZfDT,7AUX,TAUY,w,WR,yPHtTAl,TAH, 
CTAV,AKT,CB,CU,A,B,C,EUL,T,TW,RC,r^Cy,TEfPPEF,TPEr,TO,TA^^H,TTOT) 
CALL PRPArA(AT,AH,AV,AP,DX,CY,DZ,CT,CL2,HAXlT,LPS,0PEGA, 
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n« 

ns 

116 

nr 

na 

119 

123 

121 

122 


CAReP*TAUX,TAUY,TTOT ,MAR (MPH »ZN tUNflUNtJUR > 

CALL TPRlKtf Til .TAH,TAV.CB,CW,AKT ,TPCr ,RRCF »CUL , A ,B ,C , TC » T0> 
CALL PRITCXIl TN,CX) 

CALL PRPlNTd b,JW ,1 WN ,JUN ,P I 
CALL PRUVIltJtK fUfJN«X»<,UrVI 
CALL PRWH(IU(JM,K ilbNfJUNtKNtWRH) 

CALL TPR1N2(1 , J ,K ,1 ^ ,JN ,K N , T ,R0 .TRCD 
6 CONTlMue 
CNO 


9.1.^; 'niAL'i2 C’iiin Program for Near Field) 

This is the same as TIIAIN 1, except, this program is to be 
when the depth is variable. The surbourtine GRADSl compute 
slopes of the botton in x and y directions respectively. 


r 
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4C 
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40 

SC 

5 I 
62 

53 
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55 
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PARAhCTCR lNi!3«JN=2C«KNr6tl^N'17 ,JUh-19 

DIh£ KSION Un 5 V JN tKN I ,V IIS t JN »KN I I IK « JN «K N ) t WH I I WN, JU N , KN ) * 

Oi4nKfJNtKK},bf?^nbS»JbN,KN),P|UK«..MN)90llN,JK,KKI,tllS,JN,KK), 
CyHLCTllUKfJwNI,XlKTIIS9JK)|TlK7(lK,JNl9Mn.9JN,KN)«0ClN,jN,KK>v 
CMII IN* JN I fhX I IN 9 JK I 9 HY (IN 9 JK ) 9 H AK f XK 9 ^N I 9 ^R HI IWN 9 ^WM 9 FHI IWK, JbN } 9 
COPSX f IS* «iK| 9 OPS Y (IN 9 JM 
OIHCNSION A3IKN) 

OlHCNSIOK III N* JS|KN )*TP UK 9JN9KM9T0IIK, JN 9 HNI 9R0(1N9JN,KN) 9 

CRlNlXUN,JN9KK)9niNTY(lN9JN9KNl9UDllN,JN*KN' 

OIHENSION TyilyKiJbK *KN ) *P0 W ( lUN * JW N ,KN ) * JX I jS) * 1 II Isi 

1NH1=IN-1 

RtAD It If^UN 

READ It IN 

REAC It UN 

FORHAT iI5l 

READ 2» VVIStXar 

A3m = VVIS 

A3(21=VVIS 

A3i 3J=VVIS 

A3(4I=YVIS 

A3(5I=VV1S 

B3=VVIS 

READ 2t AlfAHtAYfAP 

READ 2# EP6,M*xIT,0HEGA9*PBP 

READ 2t OX,OY902 

READ 2t lAItTAHtTAV 

READ 2t A 9 B 9 C 

READ 2t 7C 

READ 2t AKT,EUtCW,C 6 
READ 29AA*BBtCC 
READ 2tTLLtTHH 
FORMAT I ) 

Dl 2 rDX* 0 X 

TREFrTO 

RREF=A«BtTC^C*TC*TO 
If CIRUN.GT.C) GO TO 3 

CALL REAC^IItJtlNtJKtlUf^WtlWKtJwNtH/RtMRH) 

CALL INlTlAll^«f«iNfKNflWN fJWNfUfV fbyWHfOfCf 
CP,I, J,H, Ik, JU ,AFBP> 

CALL INI1ITI I , J,K ,1N , JN,KN, Ik , JU , lU N,JWN, A, B,C, T ,<?0,HAC, HPH, TRLF , 
CPRCF,TU,ROW, TCI 

CALL IfiOATA(l,J,K,IN,Jt, ,KK,T,TREF.IU 
CALL ,CC,JX ) 

CALL GRACSl (I r,, JN,KL ,I kN , Jk N , H I , HX , l< Y , P AR ,HRH , GX , DX ) 

CALL INLLT(I,J,K,IN,JN,KN,V,G,AA,QB) 

CALL If.TE»‘P(I ,J,K ,If.’ ,JK,KN, T ,TD,TLL ,THMI 
CALL CURM(I,J,K,IN ,JN ,K N ,U , V , C , E , H , G I 
GO TO M 
CONTINUE 

CALL REACr(U,V,kH,P,l,J,K,IU,JU,IN,„N,KN,IkN,JWN,r,E,MX,HY,MI, 
CPAK,PPH,AI,AH,AV,AP,DX,DY,D?,OT,TAUX,TAUY,k,iiR,WRH,TAI,TAH,TAV,AKT 
C,Cfc,CU,A,R,C,rUL,T,Tk,RO,FCk,TE,RFEr,TFEF,TO,TAMB,TTOT) 

CALL INLET(I,J,K,IN,JN,KN,V,0,AA,rbl 
CALL INTEPP( 1 ,J ,K ,IN ,Jt. , K N , T , T D , T LL , 1 MM J 
CCNT INUE 
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59 
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66 
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63 
69 
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83 
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99 
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120 
ICl 
102 
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105 

106 
107 
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109 

no 

111 
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113 


TCrCTiMB - 7 REF l/TRCF 
RC 60 2 «T 8 UX,TIUT 
RCAO 2 « OT 
00 6 1 »LLN 
00 5 1 = 1 ,LS 
TTOTrTTO l^OT 

CALI tK 9 C 4 nuK,JtaK,Ilrf«JU«CT» 6 H,WHL 0 T,KN»Hf^HI 
^ ALL kHTCF (lb rJWflWL »JUN ,KK tbH,K ,H 4 H) 

CALL WHA TI J( 1 ,J,»( IN» JN fKN , TbK ,JbK ,U tUHtf^AR) 

CALL INTO ( 1 tO |K flNtJK fFN ,U» V tb »HI thX ,HY ,HIR tX IN r tYINT »A 3 » Alt 
CAHtAVtTA UX* TAUY ,DX,rY, 07 , 0 ,C ,CT tOPSXtCPSY ,AP) 

CALL C OR IN I ( 1 «J |K «IN ,JN tXNtAbP iU tV tXINT ft IN T ,02 f HI »HAR» 

CALL ROIKTXII ,J , 1 ^ ,IN ,JN ,XN,DX,DY ,02 ,RO,IP fCULtHi 9 

CHARiRINTXtHXfXiMI 

CALL ROI NTYCI »J ,K ,IN ,JN ,KN,CX fOY ,D 2 tPOtAP tCUL ,HI ,HAR, 

CRIM t ,HY , YINT I 

CALL DPSXYd , J, IN ,JN tlW tJW, TbN ,JWN,CPSX 90 P 5 Y ,P tOX , 0 Y, HAP > 

CALL FORCE (I , J, Ib ,JW tXIN T ,t 1 NT,UHL 0 T , 0 X , OY , H I , hX , HY ,M Pl^ » 
COPSX,OPSY,FM,IP,lN,JN,lWN,JWN,RINTX,RINTY,U,V,eUL,AFR 9 HAP,KN) 
CALL PRf : (EPS ,M AXIT , 1 N ,JN ,P ,ITN ,DPS X ,DPSY ,FH,CL 2 ,CHEGA, 

CHRH, J, J, KflW, Jb ,DX,OY,tX , Ib N , JW N , AR P P I 
call UVT(I,J,X,lU,JW,lN,JN,KN,IWN,JWN,U,V 9 D,C,H,C, 0 X,DY, 0 Zf 
CRlNTX,RlKTY,CLL,b, 0 T,Al 9 AP,AH,AV,A 3 ,Hl,HX,HY,P«MAR| 
call UVTCP(H,G,TAUX 9 TAUY,I»J,K, 02 , 1 N,JN,XN 9 MI,MAR) 
call OTVELSd fJfK ,IN 9 JN,XN,H,G} 

CALL OLDUV(I»J,K,IN,JN,KN,U,V,D,lI 
CALL OLD UVd t J,K tiN tJN ,KN ,H ,G ,U ,V > 

CALL RbH(I,J,K, IbtJUylNf JN 9 KN,IUN,JUN»U,V,WH,HI, 0 X, 0 Y 902 ,KRH) 
CALL bHA TlJd »J fK tlbtJbflNiJN ,KN , lU N ,JUN .b ,WH ,MA R | 

IS CONTINUE 

DO ZC l^ltlN 
00 2 C J=ltJN 
bOdfJ, ll=b(l,J»ll 
2 C CONTINUE 

DO 30 l-lfIN 
CO 30 J= 1 »JN 
ud,j,n = 0.0 
30 CONTINUE 

CALL TlHI 4 (I,J 9 K,IN,JN,KN,U,V,T,TC,CX, 

CCBt 

CDY, 0 Z,W,DTtTAl,TAH,TAV,B 3 fHI,HX,HY,MAR,AKT,TREF,TAMr) 

CALL TEMB 2 d,J,K,lN,JN,KN,T 0 ,nx,DY,Cr,MAR,CB,HlvAHT,CW 9 TAPB, 
CHX,HY,T,TREF,TAV,TA 1 ,TAH, 03 ,OT) 

CALL lNTEPP(I,J,K,IN,JN,KN,T,TDtTLL dHH ) 

CALL OUTEHPd ,J,K , 1 N,JN,KN,TD) 

CALL OLOT(I,J,K,If ,JNtKN,T,TP) 

CALL OLD T d ,J ,K ,IN ,JN,KN , TO ,T ) 

CALL TLOB(!,J,K,IN,JN,KN,T,HAR) 

CAUL OlNSTYd,J,K,lW,Jb,IN,JN,KN,IbN,JWN,A, 0 ,C,HAP,KRH,T,TW, 
CRO, ROW, PPEF, TREE ) 

00 40 1 = ItlN 
OC MC J= 1 , JN 

w( i,j,n =bC(i ,j, n 

4 : CONTINUE 

S CONTINUE 

CALL RbRHd , J ,K ,1 W, JW ,IN , JN ,K N , 1 b N , JW N ,U , V , W H ,H I ,)IX ,HY, 
COX,OY,OZ,PRH,WRH> 
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115 

116 
IIT 
116 
119 
12: 
121 
122 

123 

124 

125 

126 
127 
12« 
129 


CALI AWR (I, J,K,IN,JN ,K h » U, V , V . WR ,H1 ,HX ,HY ,02 »HAR I 
CALL S10RC2 lu ,V ,WH,P ,1 ,J ,K , lb ,JU ,IN ,JS,KN ,lws ,JWK ,C,C ,HX , HV, 
CHl,MAR,Mf;H,Al,AH,AV,AP,0X,0V,02,0T,TXUX,TAUY,W,WR,bRH,TAl,TAH, 
CTAW,AKl,CD,CW,A,ft,C,CUL,l,tW,PO,RCa ,TE,0fitF ,TRtr ,fC,IAMB,TT0n 
call PRPARAIAI,fH,AV,ir,CX,CY,02,0T , CL2 . H AX IT , C P S , OPC CA, 
CARBP,TAUX,1AUY, net fPARtPRH ,IN, JN,lbN,JWN I 
CALL IKTCPPII ,J,K tU ,JS,KN,T,T0,1LL ,THPI 
CALL CALHSn •J,K,IN,JN,KK,U,V,C,C,H,C) 

CALL TPRlhlUAl ,TAh ,TAV,Ce,Cb,AKT ,TRCr ,RRCF ,CUL , A ,0 ,C , TE , TO I 

CALL PRI TEXTI TN.EXI 

call PRPINTlIb, J«,IbK,JWN,P t 

CALL PRUVII,J,K ,IN,JK,KN,U,V> 

CALL PRWHdU, Jb ,K ,1 b N , jWh ,KN , bR H I 
CALL TPR1N2CI ,J,K ,IK ,Jb ,KN,T ,R0,TREF) 

6 C06T1NUE 

LNO 


POOR 


page is 
quality 


liAltl PR0GRA:';S for far-field 
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9.1.5 T.1AI1I4 (Main Prc,:ran tor Far-Ftuld) 

This is a main program. This program is used for in- 
itializing velocity and temperature fields for shallo'.v unstrat- 
ified basins with constant vertical viscosity. The progr.v' 
also fills in the depth matrix. The program fills in the MAK 
and MRH matrices which define the relative location of 
computational points .in the full and the half grid systems, 
respectively. The PARAMETER statement defines the size O'. t.ie 
computational grid system. The program uses the data elefacnt 
J.EDATA. First, twelve lines of the datt are read in by Ti'IAIF4. 
ilie subroutine READ3 reads the M(\R and MRH matrices in that 
sequence. The INITIA subroutine initializes the velocity and 
pressure fields. The velocity field is set equal to zero Mid 
the pressure field is set equal to unity everywhere. The sub- 
routine I'ilTIT initializes the temperature field equal to the 
veference temperature everywhere in the domain of interest. 

The subroutine HITEA reads in the depth matrix. The subroutine 
GRADS computes slopes of the bottom of the basin in x ana y 
directions. The print statements are included in subroutines 
i<-EAD3A and GRADS. The subroutine READ3A prints out MAR and 
MRH matrices. The subroutine GR^XDS prints out the depth matrix 
and the two matrices of x and y slopes. The program stores 

initialized and computed physical quantities on Unit 8. 

♦ 

Element RTM4 is used to provide computer coTrLmands necessary to 
execute this program on UMIVAC-1106 computer. 















Flow (^lart 


(Cion t i nnoti on next paj;e) 





TMAIN‘) coni iiuuhi 


Compute surface pressure 
Subr out ine : PRE 1 


Compvite horizontal 

v^e loci 1 1 es 

Subroutine: UANVC, 

UVTOP , 

OI.DUV' 



Compute vertical \'e loci ties 
Subrou t ine : RWH, WIIATIJ 


Store non-zero vertical veloci 
ties at tlie surfatus compute 
t tMiipe ra t ure witli zero surface 
x'ortical velocities, check for 
mi c'ro-scop i c m i x nui , t^ompu t e 
.lens I t y , rest ore non-zt^ro vert i 
t'a I surface velocities 
Subrout me: TKMI4,TKMP2, INhKT 
Ohirih ThUIh DENSITY 


Desired 

number of t ini^ 
s t eps^----'’"" 


x'omputt* \u*rtic'al velocity in 
X, , z coordinate system 
.Sulu'out mesiKWRlI, RW 


> 1 ore 

Uibi ou t 1 ne : STC»Rl‘:2 


CIr 1 r t uuMi I d 
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M^TPFi 

.T»<* IN<» 


1 


PARA HC ICR l^:?9,JN:13•KN:6|IUN:^a.JWNrl; 

2 


OiPCt.SlON U(1 N, JN ,KK 1 , V ( IN , JN ,KN 1 ,U (IN ,JN ,KN 1 ,Uh< iWNy jWn, MN> • 

3 


CwRUNt JN fMM , (IkiN ,JhN ,KN 1 ,P ( IiiN,^liN 1 ,0 11 N , JN, AM ,C (IN, JN,KN)t 

4 


CWI’LDl(IWA,jbN),tlKTllN,JM,VINT(IN,„M,hlIN,wN,MN),C(IN,JN,KN), 

5 


CHK U, JN ) ,HX( IN , JN I ,hY ( IN ,JN ) iMAR (I A ,JN ) • HRM( IhNiObN) .rn ( IWN, JwN 1 

6 


CCP$X(1N,«N|,0PSY(IN,JNI 

7 


OlHCNSiOt, A3(KN 1 

8 


OlPCKSION T(IN,JN,KN),To(IN,JN,KN),RO(IN,JN,KNI, 

9 


CRINTXdN , JNyKN) ,RIN TY(IN , JN ,HN ) ,WD( IN,JN ,KN I 

10 


l^Ml=I^-l 

11 


RCAO 1, IRUN 

12 


READ 1, LN.LLN 

13 

1 

FCRHAT (16IS) 

U 


READ 1,N0TCR 

15 


RCAO 2, VVIS.AQR 

16 


A3(1)=VVIS 

17 


A3(2I=VV IS 

18 


A3(3):VV1S 

19 


A3(Ai=VVlS 

20 


A3(S):VV1S 

21 


A3(6i:VVlS 

22 


e 3 =vvis 

23 


R£A0 2, AI,AH,AV,AP 

29 


READ 2, EPS, HAXI T , OMEGA , ARBP 

25 


READ 2, OX,OV.02 

26 


RCAO 2,CC 

27 


RCAli 2,TAUXM,'*I YM 

28 


read 2,0T 

29 


READ 2, 1*I,TaH,TAV 

30 


RCAO 2, A,B,C 

31 


READ 2, 10 

32 


READ 2, AKTtEl'L ,CW,CG 

33 


READ 2,TAMB,T1NM 

34 


READ 2,IIK,JlA,IOt'T,JOUT,UINM,VlNM 

35 

4. 

FORMAT () 

36 


0L2=DX*DX 

37 


TREF:T0 

38 


RREr=A«B*TO«C*TC*TO 

39 


IF (IRUN. EO. 01 GO TO jS 

90 


IF (IRUN.CQ.I) GO TO 16 

91 


If (IRUN. eg. 21 GO lO 3 

92 

15 

CONTINUE 

93 


GO TO lOCC 

99 


REWIND 9 

95 


READ (9) ((MAR(I ,J) , 

96 


C( (mRH(IW , JWI , lu:: 1 ,I WN 1 ,JWN ) , 

97 


C((NI(I.U),1 — 1,I^ 

9 9 


C((NX(I.J>.I = l,lM,jri,jN), 

99 


C ( (hY( 1, J ) ,I = 1 ,I N ) ,J , JN ) 

50 


rewind 9 

SI 

KCC 

CONTINUE 

52 


CALL READ3(I,J,TN,JN,IW,JW,IUN,JWN,MAR,MfiH) 

53 


CALL INIIIA(lN,JN,KN,I»iN,JuN,U,V,W,WH,C,E,P,I,J,K,IW,JW,APCPI 

59 


call INI t jT( 1 , j,k ,l n , jn,kn, iw , ju', Iwn, Jw n , * , p ,c, 1 ,ro .mar hrh , T^EF , 

55 


CKKEF.TO) 

56 


CALL ME IGHTd ,J ,h ,I N ,JN ,KN,UI ,HX ,HY ,CC > 
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57 

56 

59 

60 
61 
62 
63 
66 

65 

66 

67 

68 

69 

70 

71 


CAtL CRAOStlN.J^fKK »XWN tJWN tMl fH X fH Y #M *R • HR M , CX , DY | 

noT=c.o 

ITK = 0 
EX = C. 

6C TO 6 

16 CONTINUE 

3 CONTINUE 

4 CONTINUE 

CALL ST0RE2(U,VtWHtP,X ,J,K,IUtJW,lN,JN,KNtlVN,JUNtDfEfH)(«HY, 
CHX,HAR,HRH, AX ,AHtAVf APt0Xt0Y,02,DT,TAUX ,T AUY,W,WR,hiRH9TAl«T AH, 
CTAV,AKTtCB,c6#AfBfC#EUL,T,R0,TEfRPEF,TpEF,TC,TAH39TT0T, 
CXTN.EX) 

CALL TPRXN9{I ,J ,K ,IN ,JN ,KN,T ,R0 ,TREF ,HAR ) 

6 continue 

END 


r 
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9 . 1 . t) TMAINAT (llain Program for Far Field) 

This is a main program, This program is used Cor shallov/ 
unstratified basin.’ with constant vertical viscosity. This 
program is used to update the initial temperature field frc' a 
constant value everywhere as defined by T>L\IN4 to a bette*. 
defined temperature field. The subroutine READ2A reads in the 
values of physical quantities stored by TMAIN4. The read-in 
unit is numbered 7. The subroutine INITH reads in the surface 
temperatures defined as data clement ITPKl. Such temperatures 
are obtained from infrared scanning of the water surface. The 
temperatures below the surface are computed from a specified 
temperature gradient in the vertical direction. Computations 
for temperatures below the ourface are also made in subroutine 
INITM. The subroutine ST0R2A writes out the updated vaia- s on 
unit , 78 . The subroutine TPRIN2 prints out the updated tempera- 
ture field. 'ihe program also sets the time count to aero. The 
element RTM4T provides with the computer commands necessary uo 
execute program T'L\IN4T on UNIVAC-1106 computer. 


j 
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l#TPFi 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
id 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2B 
29 


THAIK4T 

PARAHCltR IN=29,JN=13,»tNr6,lhiNr:>8»JWNri; 

p4»AMET£ R NTL = 14,NTI V-2 

01 PENSION U(lK,JN,KN»,V(lN,j^l9KN>fM U N t JN «K M t WH U b N, Jw N t K N | ^ 
Ct^R|lKvJNtHNIt60M(IWN9JkNtKS)»P(UNf,bMtr<lS,JN|KM,C(li^iJNfKNlt 
CbHlOmuNtJdN^vXlNTflNyJNlfYlMlIKf^NItHIlNtJNtHMtOilNvJNfKm, 
CHU iNfJN ) ,mX( IN » JN> « HY Us 9 JM ,HAR ( U 9 JK) » PKH< ZUN 9 JWN) ,FH( 1 yN, JbN I , 
CDPSX < IN 9 ^N> fOrs Y UN 9 JN ) 

01 PENSION A3(KN)9UVIJN}9THtTA(jNl9APlNT(NU9NUV) 

OlHf NSXON T II Kf JN 9 KN It TO ( IN ,KN ) 9<?0 (IN 9 JN fpNI 9 
CRlNlX(lNt««N 9 KM,RlsTYUNtJNfKNl 9 *n( IN 9 JN ,KN I 

3 CONTINUE 

CALL RE AC2(U9V9 WHtPf If JfK 9lW9JUtIN9«iN9KN9lWN9 JUN trtr* Hit 

CMAR 9 HRHf AI 9 AH 9 A V 9 AP f OX ,0 Y fD? ,0T 9 I AUX 9 T AUY 9 « 94 R fWRH 9 TA I, TAHf T AVt aKT 
CtCBfCW,A 9 BfC,EUL,T,P 0 f TE 9PRtF ,TRCF 9 TO 9 TAHB 9 TTOT, ITN^EXI 

4 CCNTINUE 

READ 2,( (AHlNT(N,Ll 9 Lr j9N7LV),K=l9NTLl 

2 format C I 

CAL t ImI T ITC I 9 JfK 9 lN 9 JNfKN 9 I w, JWt IWN.JWN ^A ^0 ,C ,T ,R0 9 M A R 9 MRH 9 T REF 9 
CRREF 9 TO, AMINT 9 MI 9 NTL ,NTLV I 

CALL lNlTMn9J9PflN9JN9KN9lW«JW9lWN,JWN9A9B»CtTtR0»MAR9'^(^HttREFt 
CRREF.TOtHIl 

TTOT=O.OCC 

CALL STORE ’(UfV 9 WH 9 P 9 I .J |Kf tW 9 jW,lN 9 JNtXN 9 lWN 9 JwN 9 D 9 E 9 HXfHY 9 
CHI,MAR9MRH9Al9AH9lV,AP9DX*DY,r29DT9TAUX9T/UY,y9WR9bFHtlAltTAM9 
CTAV 9 AKTfCB 9 Cy,A,Q 9 C 9 EUL,T,RC,TC 9 RREF 9 TREF 9 T 09 TAMB 9 TTOT 9 
CITN 9 EXI 

CALL TPRIN9(I9J,K9IN9JN,KN,T9R09TREF,MaR> 

6 continue 

END 
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9.1.7 TtlAINS (I'atn PrOi-;rara for P’ar Field) 

This is a main program. This is the program which per- 
forms most of the computations. Solutions are propagated in 
time for both the velocity field and the temperature field. 
Values stored by TMAIN4T are read in by subroutine READ2A 
from Unit #7. First twelve lines of data element lUDATA 
(defined as data element INDATA5) are used to provide witf ^lie 
values for basic parameters, The subroutine INLETAimposes the 
inlet and outlet velocities and temperatures onto the com- 
putational domain. IMLETA ■'ubroutine reads lines 13 through 
the last line of data element INDATA5. The subroutine EkxOh’. 
computes the contribution of nonzero surface vertical velocities 
to the rigid lid pressure. The subroutines ^•JHTOP and \vHATIJ 
set the surface vertical velocities to zero. The subroutines 
INTE partially evaluates the forcing function in the Poisson s 
equation for rigid-lid pressure. The subroutine CORINT as 
the contribution of Coriolis force to the values computed by 
Ii.ITE. The subroutines ROINTX and ROINTY add the contribution of 
bouyancy to the terms in the forcing function. The subroutine 
DPSXY computes the pressure gradients at the surface along tne 
boundary for use in the solution of Poisson's equation fo^ tigid 
lid pressure. The subroutine FORCE combines all terms of the 
forcing function. The subroutine PREl computes the rigid lid 
pressure field by iteration. The subroutine UVT uses th.o t and 
momentum equations to evaluate u and v at grid points bi.>Lo\.' 
the surface. The subroutine UANVC add the contribution c 
Coriolis force to u and v. The subroutine UVTOP computes the 
surface velocities from the velocities below the surface by 
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utilizing the specified velocity gradient due to wind. The 
subroutine OLDUV updates the values of u and v. The subroutines 
RWH and I'^HATIJ compute the vertical velocity, the continuity 
equation is used in the process. The nonzero surface vertical 
velocities are then saved as WD. The surface vertical velocities 
W are set equal to zero before going into the energy equation. 

The subroutine TEMI4 computes temperatures at the -interior points. 
The subroutine TEMB2 computes temperatures at the boundary points. 
The subroutine OLDT updates the values of temperature. The 
subroutine TEQB checks for thermal instability and mixes the 
water to create stable temperature field. The subroutine DEMSTY 
computes the new density field from the new temperature field 
using the equation of state. The nonzero vertical surface velo- 
cities are now restored. The subroutines RWRH and RWR compute 
the vertical velocities in the x-y-z coordinates from the values 
in cx, B, Y coordinates. The subroutine ST0R2A stores the updated 
values on unit #8. The element RTliS provides, the computer 
commands, necessary to execute program TMAIN5 on UNIVAC-1106 
computer . 


] 
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H*TPr» 

• THAIK! 


1 


PARAMCICR lN:?9tJ».= 13,KN:6, IhN:2StJWN = l? 

2 


OlnCNSIOR UdNt^INfKN i,V(lN,JN,KM,k IiN,jN,knI»WH( IWMt JUN.KN)* 

3 


CkOt lN,JN,Mr« ) fbfiH llbN ,J»N ,KN ) 1 ,0 (IN, JN,KM ,C UN, 



CUHLOTCIW JkN t, «1NT 1 IS ,JN », Vir.'T ( IN,«N|,H| IN, JN.K M ,CI IN, JN,KN i, 

S 


CHI |IN,JN 1 ,HX ( IN ,JN 1 ,HV (IN ,JN ) ,H«R (IN , Jii^l , hRH( UN, JNN) ,FM( IkN, JbN ) , 

6 


C0PSX(IN,JN),0PST(IK,JN| 

7 


OIPCN^iOn a 3(KN I 

8 


OIHCNSION T (I N, JN ,KN I ,T0 (IN ,JN ,KN ),R0(IN, JN ,KNt , 

9 


CRlNTX(lN,JN,KS|,RlNTY(lN,JN,KN|,bC(IN,JN,KNI 

10 


call RtA02(U, V,Wh,P,I,J,K ,Iy,,JwtIKt JN.HN,IwN,JWN ,C,t,MK,MV,HI , 

n 


CHAR,HRH, AI , AH , « V , AP , D X , C Y , c ? , U AU X , T AUV ,U,bR,URH,TAl,T*H, TAV, AKT 

12 


C,C8,CW,A,B,C,eUL,T,R0,TC ,RREF,1RLr,TO,TAHB,TIOT ,ITN,CX) 

13 


1NH):IN- 1 

14 


READ I, IPUN 

15 


READ 1, LN,LLN 

16 

1 

FORHAT ( 16IS ) 

17 


READ 1,N0TGR 

18 


REAO 2, VVIS.ABP 

19 


A3I I):VVIS 

20 


A3(2UVVIS 

21 


A3(3l:VVIS 

22 


A3(«|:VVIS 

23 


A3CS»:VV1S 

24 


A3(«)=VV IS 

25 


B 3=VVIS 

26 


REAO 2, AI,AH,AV,AP 

27 


REAO 2, EPS, HAXI T, ONEGA ,APEP 

28 


READ 2, 0X,0Yf02 

29 


REAO 2,CC 

3P 


REAO 2,TAUXH,TA(JYH 

31 


REAO 2,0 T 

32 


Reao 2, iai,tfh,tav 

33 


READ 2 , A , Q , C 

34 


REAO 2, TO 

35 


REAO 2, AKT,E0L ,Cb,CB 

36 


Reao 2,tanb,tinn 

37 


REAO 2,1IN,JIN,I0UT,J0UT,IJINH,VINH 

38 

2 

FCRHAT (1 

39 


0L2=0X«0X 

40 


TREFzTO 

41 


RREF:A«B aTO«C *TC*T0 

42 

4 

CONTINUE 

43 


TE:(TAMB -TREF I/TREF 

44 


00 5 L=1 ,LN 

45 


TTOTrTTOUOT 

46 


CALL T1MEP(TANB,AKT,UINH , VI f.'H ,T INH , T AUX N , T AUY M, T TCT»D T> 

47 


CALL 1NLET(I,J,K,IS,JN,KN,U,V,H,G,TT0T,0T, 

48 


CNCTGR,TAuxM,T#UYM,TAUX,TAUY,TlNN,T,nN,JIN,UI*iM,VlNN» 

49 


CxLL CUTVrL(i,j,K,lN,JS»KN,U,V,H,C,NAR,IOuT,JCUT,lIN,JIN) 

50 


call ERfiCP(IWS,JWN,IW,JW ,DT ,WH,UHLoT,t'N,HR„) 

51 


CALL WHTCP( Ib ,JW,IWN ,JWN ,KN ,bH,K HI 

52 


call UHATlJ(I,J,K,IW,Jb,IN,JN,NN,UN,JWN,W,UH,MAR) 

53 


call inTe < I , j,k , II., jn ,kn , u, v,w,hi ,nx ,hy ,mar ,x int ,y:nt ,A 3, a I , 

54 


CAH,AV,lAUX,T*UY,oX,rY,L2,C,E,CT,Cp5X,OPSY,AP,T,TKEFI 

55 


CALL COR INT ( I ,J ,K ,IS ,JN ,KN , Af F ,U ,V , XINT ,Y INT ,r2 , HlfHARI 

56 


CALL ROI NTX( I ,J ,02 ,ftC,AP ,EUL ,HI , 


•JHiGINAl 

OF POOR QL'ALiry 
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57 

SS 

59 

60 
61 
67 

63 

64 

65 

66 

67 

68 
69 
7C 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
ICO 

101 

102 

103 

104 

:t,s 


CMAR,PXNTX,HX,YXM I 

call R0I>«TVII «JtK vI4,JK,XNtrx,0Y,D2 9P0,APfCULtHl 
CR iMY.ht ftlM I 

CALL DP5XYI I, Jt ]6 , JK • I 4 , JU , ! WN , J , C T S X t C P S Y f P • D X tO Y A R ) 

CALL rORCC (1 ,JtI « iXlN T ,Y IM ,4HLoT » • OT » h 1 • MX , hY « mR h, 

COPSXfOPS YtTHt ,X4N tJWN ,RINTX »R INT Y tU ,V tCUL tABR ,HAR ,KN| 

CALL put llCPS,HAXlT,I4,JL,P,ITN,0PSX,rFSYfFM^CL2 ,CHCGA, 

CHRH, I ,Jt K .lUt JW »CX ,DYtLX tUK tJbiK • AR BPl 
CALL tVT IX W fJW ,XN tJN.KN ,I 4N tJWK ,U »V ,0 ,t tH,GtOXt t>Y,0^t 

CR IhTXfft X KTY,ClL »W #07, AI , AF, 4M,AV, A3 ,HI ,MX ,MY ,P,HAK,J, TPCr I 
CALL UAN VC U ,J,K ,1N ,JN ,KN ,AFR f DT ,U ,V ,M,C,HX iF.APi 
CALL UVTCP<H,C, TAt'X ,TALY ,1, J,K ,02 ,1N,JN,XN,HI ,HaRI 
call iklc t< I, j, k, in , jn ^km ,u ,v ,m ,g ,t tot ,PT , 

CNdT6R,TaLXH,TAUYh,TALX,TALY,tXNH,T,IIN,JIN,U1NH,VINH| 

CALL OUT vrLCl ,J ,K ,IK ,JN ,KS ,U,V,H ,etP AR , iCUT , JC^T ,IlNt JINI 
CALL OLOUVc! ,TN ,KN ,U ,V,0,C ) 

CALL OLOuvn ,J,X ,IN ,JN ,KN ,h ,C,*J,V ) 

CALL R^HlltJtXf IW,jW ,lN,JN,KN,I^N,JwNtU,V ,WM^HI^DX ^OY ^02 ,MRM | 
CALL WHA TIjIX ,J ,h ,XW ,J4,IN,JN ,KN , JWK ,jW N#^t^H,HAR) 

DO 2C 1=1, IN 
DO 20 J= If JN 
WD(I,J,n::4n ,J»1> 

2C CCNtINuF 

00 30 1= 1, XN 
DO 70 J= If JN 
WlXf J,l) =C.O 
3C CONTINUE 

CALL TEH 14 11 , J,K ,IN ,JN ,KN ,U ,V ,T ,TC,CX ,CB ,r;Y ,D2,y ,rT,TAI , T AH, T AVf 
,HY#MAR ,AxT ,TREF ,tAH6) 

CALL TlMO^|I,J,K,IN, JN ,KN,Tf ,f|X,[jY, c 2,HAP ,CBtHlfAKT,CW, |A HB t H x# 
CHY,T,TREF,TAV,TAI,TAH,L3,CT| 

CALL OLDTfi,J,K,lN,JN,KN,TO,T) 

CALL 1ST AP (I ,J,M ,IN ,JN ,KN ,T ,HAR ? 

CALL OENSTYil ,JfK ,1W ,J4 ,IN,JN ,KN,1WN,JWN,A,B,C,HAP,HRH,T, 
CR0,RREF, TPEF I 
00 I|C l=ltIN 
00 4C J=1,JN 
|gfI,J,ll=wOIX,J,l| 

4C C0RT|NUE 

5 CONTINUE 

CALL RWRHfl ,J,K ,IW,J4,IN ,JN ,KN,IWN,^4N,U,V,WH,HI ,HX,HY, 

CDX,OY,OZ ,*-RH, WPM I 

Call R»R tT,J,)^,XN,jf^,Kft,U,V ,W,Wp,HI ,HXtHv fOZtPAR } 

CALL STORf;(U,V ,WH,P,I ,J ,K , 14 ,JW ,IN ,JN,KN , J U’ N , jW ^ , 0 # E # HX , HY , 
CHl,HAP,HRH,AI,AH,AV,AP,0X,0Y,02,DT,TAUX,TAUY,W,WR,ur:M,TAl,T|H, 
CTAV,AKT,CB,CW,A,b,C,EUL,T,RO,TE,KPEF,TREF,TO,TAHb,TTCT, 

C1TN,EX) 

END 
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9.1.8 T>UMN5T C'.ain for Far Field) 

Thia pror.ran sirmlatus temperatures only for unstratified 
saallow basins with constant vertical eddy v’iscosity. Stepr 
involved in its execution are similar to those involved in 
the execution of T!IAIN5. This proy,ram uses data element 
IN'DATAS. 
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iH#Tpri 

1 

2 

3 

% 

5 

6 
7 

I 

9 

n 

11 

12 

13 

19 

15 

16 

17 

18 
19 
23 
21 
22 
23 
29 
:5 
26 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 
36 
39 

90 

91 

92 

93 
99 

95 

96 

97 
96 
99 

50 

51 

52 

53 

54 

55 

56 


THAlKfl 

lN*?9«JN=13f»>N:6f!w^*2lt«;iiS=12 

OIHC NSlOh Ull JN fKN ) tV ( n. I JK »KN I CIK , JN ,KN ) ,UM( IWK, JbN, KNl f 

Cbf^n K» JN,KK) « bPH I !b^ ,JWN «0 <ZN f & JNtK Nit 

CHI I I Nt*'^ I tHX ( IN , JM yHY (IN ,jM tPAA (I N t JM t HftH ( IbN 9 JW..I 
C]PCKS 10 ^ 0 IIK»JK,KK)»h(IS,^N 9 XN| 

OIPCNSION A 3(9N I 

CIHt NSlOK T( I JS«KN It TO UN 9 JH 9 KN I, PO (IN 9 JN yKNI 9 brc IN 9 JN 9 KNI 
CALL P£AC 2 IUt V9 WM9P 9I 9J9X tl^yjbtlNyJNtl^NylWNyJbN yOyCtHXfHYtHl 9 

CHAkyMRHtAltAHtAVtlPyCXtOYtCZtCTtTAUXtTAUYtbtUPtWRHtTAltTAHtTAVtAKT 

. c 9 C 69 CN 9 A 98 tC tTUL 9 T 9 PC 9 K yRKtr ,TPCr 9 TO tT A H B 9 T T 0 T 9 I T K 9 !; XI 
2 NH 1 MN«S 
READ I 9 IRUN 
READ It LN 9 LLK 

1 rCRHAT 116X51 
READ I 9 NOTGR 
READ 2t VVISt^BR 
A3( 1 UVV 15 

A!C 2i::VVIS 

Aimrvvis 
A3I9I=VVXS 
A3t5irvVlS 
A3(6 irvVIS 
BJrVViS 

READ 2t AltAMtAVt/KP 

READ 2t EPStHAXITyOPECAtAPBr 

READ 2t DX 9 DY 9 O? 

READ 2tCC 

READ 29 TAUXH 9 TAtYP 
READ 2 tDT 

READ 2t TAI 9 TAH 9 TAV 
READ 2t A 9 B 9 C 
READ 2» TO 

READ 2t AKT 9 EIL tCWyCe 
READ 29 TAHB 9 TINP 

f^EAO 29llNfJlNtI0DT9J0UTiUlKHtVlNH 

2 format ( I 
OL2=OX«DX 
TREFrTO 

RREF::A«B «TO«C •TObTO 
9 CONTINUE 

DO 20 lrl,IN 
DC 20 J^ltJN 
bCCitJti )~b(l tJfi) 

2 C CONTINUE 

DO 30 in, IN 
DO 30 J-I 9 JN 

y (It J 9 I’ =c«o 

3C CONTINUE 

DO 6 LLrlyLLN 
TT0T=TT0T40T 

CALL TI-EPlTAMCtAJ'TtUlNHyVlNMfTlNMyTAUXPtTAuYMtTTCTiOT) 

CALL INLE T( I 9 J, K , IN ,JN ,KN ,U , ^ ,H 9& ,T TCT »ri , 

CNClGR9TALXM9TAUY^<9T*LX9TAtY,7INM,79lIN,JIN9t'lNH,VlNM| 

OaEL CUTVfL( I tjfKtiNtJNfKNfUyVfMfCfMAP ?I 0 UT tJCUT 9! IN9 JiN ) 
call TLMlMtlyJyK 9lN9*JNfKNyUfVtTtT[^9DX9CB9DY yO^fyiC^fTAIyTAHtTAVt 
aj39HI,HX9HYtHAR,AKT,Trtr,TAM0) 


lU 


S7 CALL TL»*e3lt,J,M,IK,JN,KN,10,Dl.0VtCZ»»*Al>»CetHltAKT»CWtTAMBiHX, 

SB CHT,1, TRCF.TAv.T A 1 .tAH,e5 ,CT I 

S* CALL OLo 7 ( i t jtK • I n • JK tAN t 70 • T I 

b? CALL TS1 AMI ,J,M ,IN ,JN ,HK ,T ,HAR I 

61 6 CCNTlnUt 

62 CALL OCNSTVd ,J ,K ,IW,Jb,!N,JN ,KN,lwN,JMN,A,B,CtNAPt>‘RH,T, 

6: CBCifiREf t IfiEM 

66 DO DC 1= lilN 

65 00 60 J: 1,JN 

66 Mll,J,li:bb(l,J,l) 

67 *0 CONTjNOE 

66 CALL ST0RE2lU,V.bH,P,ItJ.K,lW,JU,iN,jrj,KN,IUNfJWN.D.C.HxiHYt 

6 9 CHI ,PAP,HrH,AI ,AH, AV,AP ,OX ,OT »C2 ,0T , TAUX ,T AUV (UtWR ,bCH tTA 1 tT A h> 

7C C1AV,Ak 1«CB,CU,A ,B ,CtEUL»T |R0,TE iRPEf ,TREF ,T0,TAMB ,IT0T, 

7t C11K,EX} 

72 END 
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9.1.9 T.iAI.^5V (Main Program for Far Field) 

This program simulates velocities only for unstratifipci 
shallow basins with constant vertical eddy viscosity. Steps 
involved in its execution are similar to those involved in the 
execution of TliAINS This program uses data element INDATA5 . 



i.THAIkSV 


PArAHCtCR lN=;9,jri=ntKN=6,IbN=?8 ,JWN = 1? 

OlHCNSlOk UCIK.JNtH^’IfVt iNtJNfKMfU (IKtJN>KN),MHIIWN, JuN,KN|, 
CuR(IN,JN,KN»,kRH(Ihrj,JMN,KK),P(IuN,«bN|,CllN,jN»HN),C(IN,JNtKN>i 
CWHLOT<lWAt>JUNI,XlNT(lN,JN|,VIN|(IK,.NI,H|lN,JN,KM,G|IN,JN,Khl, 
CHl(lK,JNi,HX(IN,Jhl,HY(IN,JN)tPARlIRtJNI,PRMiUN.JUNI «FH ( IbN, JuN ) , 
COfSX(lN,.M ,0P$V(IN ,JN I 
OIKCKSIOA * '.IKN I 

OlMtbSlOK Tdrt'J'^tKNItRO nN,JN,KNI, 
CRINIXdN.JN.KM.RIr^nilNtJNtKKl 
CALL RCAC:(U,V,WH,P,I ,J,K ,Ik,JU»lN,^r4,KN,IUN,JUN,Oi'’tHX,HY,HI« 
CmAR.HrH. A l, AH ,A Vt AP,PXiOYtO?tOT tl AUX ,TAUY ,b ,U R ,U RH , TA I , T AH, T A V, AK Y 
C ,Cb ,CU, ,et Cl C^L • T.PO, TC .PR CFiTRLF, TOt T AHB, r.OTt ITN.LXI 
INHlzIN- I 
RCAO 1, IRUN 
READ 1« LN.LLN 
FORMAT I ltI5I 
read I NCTGR 
READ Jt VVIS.ABR 
A3I1>=VV1S 
AlCirwVIS 
A3(3I=VV1$ 

A!<m=WV IS 
A 3<5»=VW IS 
A3I6):VV IS 
B 3;VWIS 

READ 2, AI.AM.AVtAP 

*’EA0 2, EPS.hAXIT .OMEGAt AkBP 
READ 2, DX,CY,D2 
^EAO 2,CC 

READ 2,TAUXM, TALYM 

Read 2tOT 

READ 2, TaI.TaH.TaW 
READ 2. A.B.C 

Read 2# To 

read 2t AKT.EUL .cVf CB 
READ 2,TAKB,TTNM 

RLAO 2t I IN# Jl N'.IOOT , JO U T ,UI NH ,V INK 

FORMAT < I 

0L2=0X*DX 

TREF=TO 

RREf :A«B*T0«C*TC*T0 
CONTINUE 

TE=dAHB -TREE l/TREF 
DO 5 L = 1 ,LN 
TT0T:TI0T«DT 

CALL TIMEPdAMa,AKT,UlLM,VINfl,TlNP,TAUXM,TAL'YH,TTCT,OTl 
CALL INLE Td , J , K , IN , JN ,K f- ,U , V ,M , G ,T T 0 T , OT , 
CNOTGR.TAUXH.TAUYMfTAUX.TAUY.TINM.T.IIN.JIN.UlNM.VINMl 

Call outvclc i,j,Ktlfi»JN.KN,u,v,H,r,pAR, icut,jcut,IIn, jin» 

CALL ERRCP(!WN.J«N,Ih,JW,CT .WH.WHLOT.KN.MRH) 

CALL WHTCPdUrJWtlkN.JWN.KN.hH.K | 

CALL WHATIJd tJfXflk.jWf If;. JNtHNtlbN.J^NffUtUH.HAR) 

CALL iNTCd.J.K.l:, .JN,!;N.U.V.b.Hi.MX.PY,MAR,XTNT.Ylf;l.A3,AI, 
CAH.AV,TALX,TAlV.DX,rY,U2,C'.E.0T.CFSX.GrSY.AP.T.TfiEFI 
CALL cCRlMd .JfK fif'f JMKKi ACr.U.V.XIKTi YINT.C2iHI,HAR> 

CALL ROIf«TXCI.J.K.IN'.JN.KN.LX.DYfC2.RO./|P tC GL.nl. 
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57 

58 

59 

60 
61 
62 
63 

6 4 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7M 

75 

76 

77 

78 

79 

80 
81 
62 
83 
68 


CPA«t«INTX,HX, XI M I 

CAU ROI KTYCl «J ,K ,IK ,KN ,CX ,0Y ,02 ,80, AP f tUL tHl, pAP, 

CRIM YfHY f YIM | 

call OPSXY<l,J,:s,JN,Iw,Jw,IWN,JWM,CPSX,OPSY,P,OX,OY,HAR| 

CALL rOPCCII,J,Ili,JW,XlNT,YiM,UHlDT,DX,OY,Hl,HX,HY,PPH, 

CDP5X,DPSY,rH,AP,IN,JK,lyN,JUN,RlNTX,RlKTY,U,V,CUL,jeR,HA8,KN’ 

CALL PRCl«£P5|MAxlT,P4,JN,P,ITN,DPSX,DPSY ,F H , DL 2 , CMEG A , 
CMRH,I,'J,K,1 y,JU ,LX,DY,LX ,IUn,JWN,ArBPI 
CALL UVT(lf«JfKyIbf«jWfINf«JN|HSflUNfkiWKfUfV fOtCffHfGt03tvOYfO?t 
CRIMX,KIMY,EUL,W,DT,A1,AP,AH,AV,A3,HI ,HX ,HY,P,MAR,T,TREF» 
call UAnVC(I. J tKtiNtJNtKN .AFR ,DT .Uf V.H,G,HI yHARl 
CALL UVTCP(H|GfTtliX»TALlY tliJiKiG^fXNtJNtKNtHItHAp) 

CALL INLETd , J,K ,JN *K K ,U f V ,H ,G f T TOT ,0T , 
CNCTGR»T*llXMtTAUYM,TAUXfTAUY,TUH,T,IIN,JlN,UlNM,VINP» 

Call OUTVeUI ,J ,KflN,JS,KNf U,V,H,G,HAB,IOUTtJOUT,IlW, JIN) 

CALL OLD LV(I f f H |IN fKN fU fV fO lE ) 

CALL OLOUVC I , J,K •IN • JN ,K N ,H • 0 fU t V ) 

CALL RwlMI,J,K,IU,Jh,IN,JN,KN flWN.jWNtU ,V »W H • HI • OX tOY tOZ • HRH I 
CALL UHA TIJ(I ,J yK •! U ,JUflN , JN ,KN tlWN ,JWN ,W •WHtHAR) 

CChTInUE 

CALL R«RH<I,J,K ,IU,JW,IN iKN i I« N, .UN»U »W ,UH,HI •HxiHy» 

COX,D Y,OZ ,HRHfWRH ) 

CALL RbR (I ,J,K ,IK ,JN ,KN ,U ,V ,W tWR ,HI ,HX ,HY ,oZ fHAR ) 

CALL ST0RE2I Ut V i WH.P ,I ,K , lU ,JW ,IN ,JN ,KN ,IHN ,JUN,0,E fHX fHY • 
CHI .PAR.MRH, aI tAH, AV ,aP .DX ,CV ,DZ ,DT ,TAUX , |AuY ,u,uRtkiPH.TAl,TAH, 
CTAV,AKT,CB ,CV ,A ,B ,C ,EUL ,T ,RC ,TE ,RREF |TREF ,T0 ,TaHb»TTOT, 
CITN,EXI 
END 


. 1 ^ ■ 
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9.1.10 TIIAIN6 (Main Program for Far Field; 

This is a main program. This program prints out values 
stored on Unit #8. Subroutines PRPARA, TPRINl and PRITla 
print out the basic parameters. The subroutine PRPINT prints 
out the rigid lid pressure field. The subroutine PRUV prints 
out the horizontal velocity field. The subroutine PRlffl prints 
out the vertical velocity field. The subroutine TPRIN2 
prints out the temperature field. The element RTM6 provides 
with the computer commands necessary to execute TMAIN6 on 
UNIVAC -1106 computer. 


NtTPFS.TMAlKC 

1 

2 

3 

<1 

5 

6 
7 

e 

9 

10 

11 

12 1 

13 

19 

IS 


IS 


17 

la 

19 

20 

2l 


22 

23 

29 

25 

26 

27 

28 


15 

16 

3 

9 


2’ 

30 

31 

32 

33 
39 

35 6 

36 


PARAMCTCR IN:29*JN=13tKN:6( jbN:2at jWn=12 

DIMENSION U«I N*JNfKN ),V(IN,JNyKN),U iXNfJN ,KN I »WH ( lUN, JUN, t(N I » 
CWf)llN,JNtKN)» wRH(UN«JbN,KN ),P(XkN,JbNt tD(IN,JS,KMtE (1N,JN,NN), 
CU»<LDTIlUN»Jwr4 l,XlNTflN»JNlfVINT (IN* JMtH(INtJN,KNI tC(IN,JN,KN), 
CHl(IN,JN>,HX(IN,JNI*Hy(IN,JN)*HAR(IN,JN)*HRH<lWN*jNKl *FH ( INN* JNN I t 
COPSX(lN*bM«OPSV(IN*JN| 
dimension A3(Mn1*UV(JNI*TMETA(JN> 

DIMENSION T(I N«JN»KN ),T0 (IN *JN »KN t * RO ( IN* JN*KNl * 
CRINTX(IN*JN*KN)*ftINTV(IN *JN *KN I »ND( 1N*JN*KN I • 

Dimension tw( ibN*juN*KM *row(Iun*jwn*kni 

READ 1*IRUN 

F0RHAT(16I5i 

IF (IRUN.EQ.OI GO TO 3 

IF (IRUN.EQ.l) CO TO 16 

IF (IrUN.E0.21 60 TO 3 

CONTINUE 

60 TO 9 

CONTINUE 

CALL REXD1(U*V*WH*P*I,J*K *I N * JH *IN * JN *KN * INN * JWN *C*e*NX*HT* 
chi*har*mrh*ai .AH*Av*AP*DX*0Y*0Z*0T,TAUX*TAUV*U*UR,NRH*TT0T1 
60 TO 9 
CONTINUE 

CALL REA02(UtV*bH,P*I*J*K*:i.*JW*IN,UN*KN,IWN*UWN*t>*c*MX*HT»HI» 
CMAR*MRH*AI,AH*AV.AP*DX ,0V*0 2*0T*TAUX*TAUY «b *WR*WRH*TAI*TAH*TAV( aKT 
C»CB»CUtA,B*C*EUL*T,Ro*TE,RREF*TREF*TO,TAMB*TTOT,lTN,£X| 

CONTINUE 

CALL PRPARA(AI*AM*AV,AP*CX,CY*02*UT *0L2 *M aX I T *EP S *OM£ cA* 
CARBP*tAuX*TAUV» ttot*mar*mrh*in,jn*iun*jwni 

CALL TPRINKT AI *TAh.TAV,CO*CW,AkT,TrEF,RREF»£UL»A,B,C*TE*TO| 

CALL PRITCX(ITN*EX) 

CALL PRPINTdW* Jk*IWN*JWN*P I 

CALL PRUV(I*J*K *IN*JN*KN *U» V*UV *THETA*MaR 1 

CALL PRuHdb* JU»K*IWN»JWN ,KN,URH) 

CALL TPRIN2(I *J*K»IN*JN*KN.T,R0*TREF*MA9| 

CONTINUE 

ENO 
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9.1.11 TMAIN4CB (Main Program for Far Field) 

This program is similar to TMAIN4. This program Is used 
to initialize velocity, temperature and pressure fields for 
a deep stratified cooling lake, This program reads first 
27 lines of data element DATAHL. Element RTM43 provides 
control statements to execute this program on UNIVAC-1106. 


i«ouLit n« 

i 


2 

I 

4 

5 

6 
7 
d 
9 

13 

ti 

12 

13 

14 

15 

16 
17 
13 
19 

rn 

21 


23 

24 

25 
4:6 
27 
29 

29 

30 

31 

32 

33 

34 
55 
3b 
37 
39 

39 

40 

41 

42 

43 

44 

45 

46 

47 
49 
49 
5J 

51 

52 

53 

54 


16 

3 


TKAIN4CB 

lur:?, JfiSHiKN^C » I*N = :8 , J4N ?1 1 
PAKAMETcr %TLrl4,NTLV=2 

10 4 JCK, Jl. , V < 14 t JN ,KN) (IK| Jf. |KN ) # W H <1 Wt » Jd 4 , KM , 

14, J% ,KM , Ui%M 4 ,JUS ,KN ) ,P ( luS , Jh r I ,[ 4 14 , J4 ,K^ ) ilUN, J4,K 
IN, JM ,HX4 I>4, JM ,MY 414 t Jt ) 4 It. , J\ ) , HKtti UN , JkM 

lE 4 510 4 A3 4KS>, HINT (NIL #NTLV » 
c NS 10 4 T(IK, JNfKM ,k0 4IN ,JN,KM 
1=1N-1 


CWP4 IN 
CHI( IN 
DIMEN 
OIHcN 

AEAO I 9 LN»LIN 
FOKMAT CltlSI 
READ 2t VVISfA^r 
A3( n-VVIS 
A 34 2 ) = VV IS 
A3( 3)rvVIS 
A 34 4 )::VV IS 
A 3 4 5 )- WVIS 
A346)rwVI5 

n wii T «; 


KN) 


33=VVI5 

READ 2 $ AI,AH,AV|#P 
READ EPS, M^XI T , OMEGA ,ARCP 
READ 2, eXiOYrOZ 
REAO 2,CC 
READ 2,0T 

READ 2, TAI,TAH,TAV 
READ 2r Afb,C 
READ 2, TO 
READ 2, uUU,CW,CE 
READ 2,TA>*6t AKT, TAIJX,TAUV 
READ 2,CCNS, A VMX, AVt*N 

READ 2, 4 4AhINT(N,U ,L=1,NTLV) ,N-I ,NTL ) 

r t: M T r » 



bO TO 4 

conti?>:jl 

CONTINUE 

CONTINUE 

CALL S ICfsTJC 1) , V f LH, P,I , J ,K , Ih t JW , IN iJt^KN , IWN , JVN |p,£ ,HX , !!Y , 
CHI , MARfHrH, f I , AM , AV f AP ,DX , DY ,nr ,UT ,T AUX ,T A lY , 4•^ , UhH, T \ I , T / H , 
CTAV, AK T, cr,CV. »A , b tC ,EUL , T ,j;( , TE fr<Rtr , ThLF , TO , TAMt^ ♦TTOT, 
ClTNftXI 

CALL in; ( I ,J ,K ,;n ,Jt, ,KN ,R0 ,TPEf ) 

CONTINUE 
t.NU 


0 
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9.1.12 TMAIN4TB (Main Program for Far Field) 

This program la similar to TMAIN4T. This program specifies 
measured initial temperatures for a deep stratified cooling 
lake. This program reads data element ITLKl. Element RTM4TB 
provides control statements to execute this program on UNIVAC-1106. 


I, THiINMTP 

(PR INr :v ,JN:13,XN:6 »JWN=12 

PA((»h:t:^ f.TU^l*- if.TLVs^ 

OIhENS :0( J( : r • Jl. ,K \ ) , V ( IN • JS»KM ,k I IN, Jl(, KMt « »H ( I WN, Jil N , KN ) , 

CUH( IN, J‘. ,KS) , V.RI' ( I»N ,J»N ,KM,P( InK, J*K» ,0 H‘(, j;.,KU,P (IN, JN,KN), 
Clll ( !'. , J < I ,t<X I IN , JN) ,HY (IN , JM ,(‘AK ( IN, JN I , ( lUN , JkNt 

UlKt-NSiON AHINr(f,TL,NTl.V( 

DlH'JNSiO;. T(IN,JN,KNI,»tO(IN,JN,KNI 
3 CONTINU: 

CALL RtaAO Ic^(l),V , kM,P ,I ,3 ,K , Iw ,«IW ,IN,J(t,KN ,^Ii(N,kiWN,C,£,HX ,HY ,HX, 
CMA«,P.^H, a:. Art ,AV, AP ,DX ,DY,C7,DT ,TAliX, TAUY ,‘w ,Ur:,WMl,TAI, T.‘.H,TAV, AK 
C,Cu ,CU,A ,l',C,EUL, T,K*C,TP,.;RCf ,T»t.F ,TC,TAMP ,TTOT,lTN,tX» 

«» CONTINUE 

READ :,( (amint(n,li,l = :,ntlvi,(,=XiNTl> 

2 FORMAT ( > 

CALL INI TI-(I, J,K • lN,JS,KN,IW,JW,mN,j;;N,A,0,C,T,RC,PAR,HnH,TKEF, 
CRRtr.TO, AMINT,HI,NTL,NTLVI 

CALL INI TH3( I ,J,K ,XN ,JN ,KN' ,:w , JW ,Ihl. , JWN, A ,fi ,C, T ,RO,KAR , HRH , TPtF • 
crri;f,tc,hi» 

TTOT:C.OLC 

call ST0(\r3(U,V,wH,P,I,J,K,IU',JW,lN,jN,KN,lW’N,JNN,r,E,HX,HY( 

CHI ,MA»:,MPh, AI ,AH, AV ,AP,DX ,L.Y,Cr,DT ,TAUX ,T AUY ,W,»^,kr:H,TAI ,TAH, 
CTAV,AKT,CF,Cw,A,u,C,EUL,T,k'C,TE,RPCF,TRCF ,TO,TAi‘i; ,TTOT, 

CITN.EX) 

CALL TPRIN9(I ,J,K ,IK,JN,KN,T,RO ,TP£F,HAR» 

6 CONTINUE 

END 
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9.1.13 TrlAINSB (Main Program for Far Field) 

This program is similar to TMAIN5. This program is used 
to simulate velocities and temperatures in a coupled fashion 
for a deep stratified cooling lake, This program reads data 
element DATAML5. Element RTM5B provides control statements 
to execute "this program on UNIVAC-1106. 
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« 


li 

5 ! 

« 


i 

i 

1 

i 


f 

! 




H•oulLm•T^*Ax^fa 

1 PLAiHtlZ? :s::9»jK'Sl3fKM:6 t;uK:2at JWNSX2 

2 DIMENSION U(IV»JKtKN»t Vd^t »WIIKf JNfKNI fkHnbNiJWNiKN)# 

3 CWNI !S»JStKM 9 WNhtI«N 9 J»SfHN)«PniiK 9 JWM 90 ( IN 9 JN t KM 9 £ < I N 9 JN 9 K N 1 9 

4 CbHLDTf iWr.fJWN IvXINT IIN 9^U I 9 Y IM I IN « 9 H ( I N 9 , K M 9 C C IN 9 KN ) 9 

& CliZI !N 9 IN 9 JM 9 HY (IN 9 JM 9 MAh UN 9 JN) 9 MrtH (XUN 9 J»M fFHC IuN 9 ^«N I 9 


6 

7 

§ 

9 

ID 

a 

iZ 

13 

14 

15 

16 
17 
16 
19 
21 
21 
22 


'.*>* CQP 6 XIIN 9 JMt 0 r^YIIN 9 JN) 

UIKCNSION kliHfil 

LIHCNSION HXNf J*MKM9T0CIN9JNfKrn 9 ROaN 9 JN 9 KSI 9 
CRIN7XIIN9.IN9KN) 9rdNTYdN9JNtHNI 9WCaN9JNi»(M 
CALL RwA 0 <aCU 9 V 9 WM 9 P 9 l 9 J t H 9 Xb 9 JW 9 7 N 9 JNt KN 9 Ib N 9 JVN 9D 9^ 9HX 9 NY 9H X 9 
CMAR9MRH9M9AH 9AY9 AP 9DX 9OY 9629OT 9TAUX9TAUY 9»9«»^9UfiH9TAX9TAH9 TAV9 AKY 
C9Cb9CW9A9e9C9£UI.9 T9^09TC9^Rrr97RCr9T0 9 TAHS 9TTOT9ITN9CXI 

XHH1SXN-: 

RCAD I 9 tN 9 tLN 
1 FORMAT IUI5I 

RcAD 2| 9 VIS 9 AUP 

A3f lirVVIS 

A3(2)rvVI5 

A3(3i:VVIS 

A3i4|:VVIS 

A3(5I=VVI5 

A 3 Uli:VVIS 


23 

24 

25 
25 
27 
24 

29 

30 

31 

32 

33 

34 

35 
3b 

37 

38 

39 

40 

41 

42 

43 

44 

45 
4b 
47 
49 

49 

50 

51 

52 

53 

54 

55 
5b 


B 3 =VVIS 

READ 29 AI9AH9AV9AP 

READ 29 £rS 9 MAXIT 90 PEGA 9 AR 6 r 

READ 2*9 DX90Y932 

READ 2 fCC 

HEAD 293 T 

READ 29 TA 1 ,TAH 9 TAV 

READ 2 f A 959 C 

READ 2 t TO 

READ 29 EUL 9 CW 9 CB 

READ 29TAKB9 AHT, TAUX 9TAUY 

READ 29 C 0 N 59 AVMX 9 AVMN 

2 format ( ) 

OLZrCXbDX 

TREFsTO 

RRLF=A 4 BbT 0 ^CbT 0 « 9 T 0 
4 CONTINUE 

T£r(TAH 3 -TREF l/TREF 

CALL INL1T5II9J9K 9! N 9 JN 9K N 9 U9 V 9 H 9 6 9 T ) 

DO 5 L=l9lN 

CALL ERR0R(lWfi9JbN9lW9 JW9DT 9WH9WHLDT 9FN 9MRHI 

CALL WHTOTilb 9JW9 IbN 9JkN 9^S 9WH9K 

CALL UHAT!J(IfJ9K 9lW9J*if IN|JN9KN9lb%9J«N9W 

CALL iNTEt (I 9J9K ,IN ,JN ,KN iLWV ,W ,HI 9NX ,HY 9 M AP 9 X I N T » Y INT 9 A 3 9 A 1 9 
CAM, AV, TAUX,TAUY9UX9CY,L2 9D 9t’9DT 9UP5> 9rPSV 9 AP 9T9 TREF 
C»CCNS 9 AVhX 9 AVMM 

CALL CO^INTd ,JfK , 1 N 9 JN 9K N 9 AtR 9 U , V 9 X I M 9 V I NT 9 C 2 9 H I , MA P. I 
CALL RCI NTXd |J tK 9lN fJN |KN ,CX 9CY ,DZ 9P, O9 A P 9 LUL 9 I 9 
CHAR ,R:NTXtHX 9 M ) 

CALL RCINTYd ,J,K , I N * J N 9 K N , TX 9 0 Y , D 2 9 T C 9 AP 9 EUL 9 H I 9 F A P 9 
CRINTY 9 HY 9 YINT ) 

CALL DPSXY(l 9 J 9 lN 9 JN 9 l"f ilUN 9 JWN, 0 rCX 9 CPCY 9 Pf 0 X,LY 9 »-*ARI 
CALL rORCtd 9 Jf I A 9 JU 9 XIM 9 YIKT ,WHLCT ,tX ,CY ,HI ,HX iMYtHRH* 

C0PSX9nPSY9FH, ^P9lN9 JN9 1 WN 9 Jt*N9RlNTX9niNTY 9 b9V9CULf AL’i< 9MAR 9HN) 


vr- 








II 


188 


57 

5 » 

59 

6n 

61 

62 

65 

6d 

65 

66 
67 
65 
69 
73 

71 

72 

73 
76 

75 

76 

77 
75 
79 
83 
81 
62 
83 
86 
65 
06 
67 
6S 
69 

90 

91 

92 

93 

94 

95 

96 


CALL PkC I(£P 5,MAXXT«XS»JN»r»ITNfDrSX»CPSY t fU |0l 2 f CPtGA » 
fXhfJUfOXfDYti*X I X^«f<fJWU|Xnt;r I 

CAlC UVTi (IfJfKflWfJWflNf JN f h N 1 1 b fi i Uli NpUfV fDfC|Hf0fCXf3Yf 02 i 
UL fb fCT |A| |AP flHfAV fAJthXf^lX f^Y fPf^APfTi T45F 
C#COSS,AVFX,AVM^J 

CALL UANVCII f J«K »:N »JS' »KI. , «DT |U t V t My G t H :» H A 9 I 
call UVrOPtHfC t TAUX fTAUY »I t J»K »D2 I XN» JNfKN »HI fMARI 
CALL OLDUV< It ,KN tt tV |C |C I 

CALL OLOliVdt Jt**tlNtJ'JtKh|HfC>iUiVl * 

CALL F?WH(I,J,K,!t.,Jk,:r. »JN,Kh,:WK,JJI>,UfV»bM»MI.0)r,CV,37,VfiMI 
CALL WHATlJ(IfJfHflb|Jk|ZN| JN |KN| •>JH|MA!)) 

00 20 

00 2J j:i,JN 
bOii,j,!)s«i(XiJi ;) 

27 contihu: 

00 2i Z:1,1N 
00 Su J=1«JN 
Wf 1, J, II S3.0 
30 continue 

call TENlkJd ,J,k ,IK ,JN ,KN ,UtV,T,TDfOX,CB »rY ,rr •k»OT,TAl»TAH(TAVi 
CB3|HI,HX ,HY, M.‘n, AkTiTt^LF, T AKb • A 3 ,C CNL tAVMX ,AkMM 
CALL TLNSrild ,J,K ,P. f .T0,0X,CY,C/2,MAR ,Cb,Hl,AKT,CU, TAf*e,HXt 

CHY,T,TREF,TAV iTA I ,T AH , L J , 0 T , A2 f COfiS ,AVHX , 4VMf,| 

CALL OLDT(:.JiKdN>UNiKN,TD,T I 
CALL T5T AFd I JiK , :n ,JN |KN ,T»KAR I 

CALL 0ENST3 (I iJiK ,1k ,Jb dN iJN iKI.'iIk'N, JJN« A,B tCi*^Ai:,HRM, r, 
CROfRREF, TPEP I 
DO 40 1=1, IN 
DO 40 jrlfJN 
«id,j, II =uDd ,j,n 
40 CONTINUE 

5 CONTINUE 

CALL Rk’RHd, J,K ,1b, JU,IN, JN,KN,lkN,OUN,U,V ,UH,F;I ,HX,MY, 

COX,OY,OZ ,HRH, kRH I 

CALL R«R d,J,K,IN,JN,Kf. ,U,V,U,hR,HI,HX,HY,0?,"AR| 

CALL STOP‘u(U,V,«H,F,I ,J,K i:k,JW,IN,JK,KN, Ibl.,^bL,C,E,HX,HY, 
CHI,MAP,MRH,A1 ,AH, AV ,AP ,0X ,0Y ,02 ,0T ,TAUX ,TAUY ,U,WR ,U':h,T / I,T AH, 
CTAV,AKT,CB,Cb,A,e ,C ,EUL , T , RO ,T E ,fi R CF , TNEF , TO , TA Mfc ,TTOT, 

C1TN,EX| 

ENO 





9.1.14 TMAIN5V3 (Main Program for Far Field) 

This program is almllar to T^-IAINSV. This program is used 
to simulate velocities only for a deep stratified cooling i.ake. 
This program uses data element DATAML5. Element RTH5VB 
provides control statements to execute this program on 
UNI VAC- 1106. 
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ivUUUU lit IMAZKf'VO 

1 pAPiHETCfi iss:7,jNsi3fK*.r^,uNs^*;i ,.n-snr 

2 Ullin«;iOK UIIKtJNfKK(,V(i*, tJI. .K*,'l tV.<INtJNfHNI tWHCWf.t^riNtKtn, 

t) C.HtOTt I.n., JWM, x;M (!N ,J'( I ,VIKT I !r, t Jl. I.HI :\, J';,KK| ,01 is, J>.,KS I , 

S CHK U., JSI t»<K( r.t^M ,HY 4 jM ,KAn I IN , JM , Mf.H 1 1 t.K , J«l. I ,F H 4 1 « J.S I , 

fc ■’ CCPSXIH.,JM,Df'iV4rJ,JNI 

7 DllieMlON AIIKIM 

0 UlHCttS 101. T4:r.',JN,.4M,r.0 4I!. tJN'tKN), 

9 CHlNTXaN,J:.,KMtR!r.TY4lN,JI.,KM * 


i: 


CAUL R(.AC:i>(U,V,4M,P,: ,J,K , Im,JW,IN,J!.,KN, Nt.,jwr,,0 

11 


CP.An tHRH,«!ttH,AV ,AP,L'X,'^Yt(/r,DTtTAUX,T^JY,i.thR,WrH, 

12 


C,CC tCt•,A,l^,CtE;UL•nAOtTi: tPAirtTRCr tTCtf AMC tTTOTtITK 

13 


14.M1 = X4.>: . 

I** 


RCAO 1, LNtLLN 

IS 

1 

FORMAT 4 leiSI 

1* 


Ri'AO 2, vviStAar 

17 


A34 1I=VV1S 

16 


A3I 2I=VVIS 

IV 


A34 5I=VVIS 

Z 3 


A3(V|=VVIS 

Zl 


A3(:i=VVI3 

2Z 


A34 oirVVIS 

23 


B3=VVIS 

24 


RFAO 2, AXtAH,AV,AP 

25 


R£AP 2, trSfMIxn, OMEGA, A.^£P 

2b 


READ 2, CX,DV,02 

21 


PEAO 2,CC 

?9 


READ 2,DT 

29 


READ 2, TAX, TAH, TAV 

33 


READ 2, A,E),C 

31 


READ 2, TO 

32 


READ 2, £UL,C4.,Ca 

33 


READ 2,Ta;*3, AKT, TAOX.TAIJY 

34 


READ 2,C0NS,AVMX,<VHN 

3S 

2 

FORPAT II 

36 


OLl=OX*OX 

37 


TREF=T0 

39 


RREF=A«B »T0«C *TC*T3 

39 

4 

CONTINUE 

40 


TE:(TAM9-TREr I/TREF 

41 


call I.UET3 1 1 , j,k ,:n , JN ,KU ,U, V,M,G ,T| 

42 


DO 5 L=1,LN 

43 


TT0T=TT0T«0T 

44 


CALL ERRCAII WN,JfcN,IU, JU ,DT ,kM,WKL0T ,NN ,MRh) 

45 


call UHTCF4IW,JL,;..N',JkN ,hl4,K 

46 


CALL UHATiJi I ,j,K ,:u ,j. • j:. ,kn,:ln, j«r;,vi T I 

47 


CALL INTteB41,U,R ,**N ,U\ #Kf. ,U,V ,W ,HI fiiX t4iY ,M/?. ,X]'.*T ,Y 

43 


CAH,AV, TAUX,T4UY,C> ,LY,CZ.D ,r,CT ,CPSy ,rPJ Y , Af ,T, T,..rF 

49 


C,CCN£,AV! X, AVK!. > 

53 


call CCRINT41 ,J,K ,1 1. ,JN ,hN , 'to ,U ,V ,Y I NT ,ri; ,1,1, 

51 


CALL PCINTaI I ,J,K ,*N ,Jt, ,KN ,LX ,LY C,AP , EUL.HI , 

52 


CMAR,f,I!,TX,UX, yl» ; ) 

5 3 


call TGI nty4 : ,j ,y ,:t ,ji, ,i . n , '■V ,c y , : z ,r ( , ',f< , eul ,1 : 

54 


CPi;.TY,HY ,YINT 4 

55 


call 0PGXY4 : , j, : ,jn k. , j,. , :w’. , jk, n ,rp:x .GPiY ,p, rx ,t 

56 


CALL FuPCEII, J,:l,JW,XII. T,YlNT,Wlll.l T ,:x,.iY Y 


i,A 


-t f 
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S7 COPSX,OPSYtrHt*PtlN|JN,lWN,JVN»RINTX»RINTYtl)»V|fUU.*f’R»MAR|KNl 

51 CALL PftEllLPS|MAXITiIN,Jl4,P,ITK,CrSX,DPSYtPH,l!L2tCMEGX, 

59 CMRHfl, J,K»lw* jU|CX,DY,CXtIV>.,JkN,AR5P) 

63 CALL UVTt>IIt JtKflUt JV>,:N,JS,KM,IhN,JUr<«U|V »0 | £ » H » G iCX » 0 Y t DZ » 

61 CRIKTX,itIKTY,LUL,» »DT,A:,AP,AK»AV,A3»MIfHX ,»iV ,P , M AB , T , TRET 

62 CiCONS, AVKX,AVHN) 

63 •»' CALL UANVC<I,J,K,IS,JN|KN,AFf!fOT,U,V,H,G,Hl,MARI 

61 CALL UVT0P(H,6,TAUX|TAUY,I,J»K,02»l^it^N,l'.N,Hl|MAR> 

65 CALL OLOUV(I|JfK,lNiJ*J,Kr.»UiVtO»C) 

66 CALL OLOUV(I|JtKi:NiJM|KN,H»C»UfVi ' 

67 CALL RWH(X,J,K,lk ,JW,1U,JN ,Kr, .Ik'N , JUN ,U ,V ,UII , HI , DX ,OY , 02 » HRH) 

63 CALL kHATIJ(I»JtK,lU,Ok,lN,JN*KN,lUN,JAN,W,UH,HAK) 

69 6 C0NTIHU2 

73 CALL RwPH(l,JtK,IU,JWtiN, JXfKK't Iwn»JkN»UtV |HXfHY» 

71 C0X,DY«02|HRH,WRH) 

72 CALL RWRLI.J.KfIN.JNiKN.U.V.WfUR.Ml.HXtHV.OZiMAW) 

73 CALL STOR23(U»V«WH,PfItJfH , lU « JW , I N . JN»K N » lUU , JUN ,0 , £ • HX , H V : 

71 CHI,MAR,MRH,AI ,AHi AV |AP |DX ,DYfOZ*OT tTAUX tT »UY,W,WR i WRH i T A I , : AH , 

75 CTAVtAKTtCCfCkfAie iC.EULf T|KC,TE7r<R£FtTREF, TO ,UMB,TTOT, 

76 CITN»EX) 

77 END 
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9.1.15 TMAIII5TB (Main Program for Far Field) 

This program is similar to TMATN5T. This program i.*? ased 
to simulate temperatures only for a deep stratified cooliu^ 
lake. This program uses data element DATAML5. Element 
RTM5B provides with the control statements needed to execute 

* a* 

this program on UNIVAC-1106, 



,L( n*TPAIKSTO 

PAHAPEiSK iN=?y,j» , !UN=:d,jwr,=ir 

0I».:'.NS10N U(lKtJlMHM|V(IN'»Jr. fKNI ),k|i(lk*.'tJWN,KMt 

CWi)( IK, JN,KM ,k nkk,J»N«KM,ri ,Jt<M ,l> ( :N,JK|KM JN,K*0, 

CHK !'•• JM.HX«!K,JK),KV(!N,J* i ,*Mix ( IS, JK ) • M .;h ( IbN , J»t ) 

U IK' NS ION CtlN, JK ,tM,K(lK ,JK ,KM 
DlMSNSIOK AKKM 

;• OIHLKSICK ms, J.\,KNI,TntlK,JN,KNI ,R0 (I N , .IN,KM , kP ( IS , JN , KN ) 

CALL ALAL (U,V , kII,P, 1 ,«l ,K , Tw ,JU , IK,JK,KK , IWK,JWK ,P ,HX ,HY ,MI , 
CMAR,MRH, A1,AH,AV, M’.PX ,rv,c.',rr ,T AIIX,UUY ,W,««?,WhM,TAl, ?AM,TAV,AKT 
C,Cit,CU,A ,f<,C ,[UL ,T,PC,TL ,RKt:r ,TRt;r ,TO ,1 AHn ,TT0T,1TK,EXI 
lNMl=IS-i 
KfAD 1, LN,LLN 

1 FORMAT (UZS) 

READ 2, VV:S,Ai)R 
AS( :» = VVIS 
AH2>=VVI£ 

A3( n = vvis 

A3<4I=VV15 
A3( '5I = VV IS 
A3I ilrVV IS 
03=VV1 A 

REAP 2, AI,AH,AV,AP 

READ 2, trS,MAXI r.crCriA, ARfcP 

READ 2, DX,DY,02 

READ 2,CC 

READ 2,OT 

REA!) 2, TAI, TAH, lAV 

READ 2, A,3,C 

READ 2, TP 

READ 2, LUL,CL',Cb 

READ 2,TAM3,AKT,TA(JX,TAUY 

READ 2,COKS, AVMX,AVHN 

2 FORMAT < I 
DL2rOX'»nx 
TP£F=TO 

RRLF = A«B •TO«C*TC* TO 
<♦ CO»4TINUf. 

DO 20 1=1, IN 
DO 20 0=1, JN 
UP( X, J, 1 )=W( I ,J, 1) 

2C CONTINUE 

DO 30 1=1, IN 
00 30 J=1,JN 
U(I,J, l):C.O 
3f CONTINUE 

CALL INLE T3 ( I ,J,K ,1N,JN ,K N ,11 , V , H , G ,T ) 

00 fr LL=l,LLN 
TT0T=1 T0T«0T 

CALL TCMl I ,J ,K ,IN ,JS ,KN ,l),V,T ,TD,CX, Ch , r.Y ,P2 ,W ,CT, TA I, TAII, TAV, 
Ctl 3, HI, UX ,MY, M AR, AKT , TRET , 1 Af'L , A ' .r PNS ,AV'X , AVMK) 
call Tt.Mr Pc ( I ,J ,h ,I S ,J(. ,KK' ,Tt ,nx ,r Y ,P;,MA ,CL ,HI ,AKT,Ck , TAH-^tHX, 
CHY, T, TRrr , lAV, r / . ,T AI!,l 3 , t I ,A3 , COM , AVMV , A VM.S) 

CALL OLD T(I , J ,h , r., JK,KN , TI' ,T ) 

CALL TKTn, (1 , J,K ,l;. ,JN ,KK , T ,M AR ) 

6 CONTI!. Ut 

CALL D-N STo( I , J ,K ,1 W,.IL , IN • JS ,KK , 1 mN, OWN , A ,C »r*AR ,EKH, T, 


6 
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57 

59 

59 

60 
61 
62 

63 

64 

65 

66 


4C 


CfSOf RREFt THCF » 

DO 40 1=1, IN 
00 4U J=1,JN 
u( I , j, n =wo(i ,j, II 
CONTINUv 




IM 




% 




HY, 

.MH, 


9.1.16 TIIAIN6B (Main Program for Far Field) 

This program is similar to TMAIM6. This program prints out 
the results for the simulation of velocity and/or temperature 
in a deep stratified cooling pond. Element RTM6B provides with 
the control statements necessary to execute this program on 

' a* 

UNIVAC-1106. 


198 


N<*OJLLI 11 . IHAIN6B 

1 pa(um:t‘:r iN=r9t JN=i:,Kw:t , ikNsse , jwN=ir 

2 OIHfNSiON Ulir.,JN,KM ,V ( IK ,JN ,KM , W 1 1 K, JK' , KM ,UM 1 1 UK, JUN , KM • 

3 CkR( I.'.t "M > » nH I I»K tXK l,P I I'wK ,JbK| ,0 ( I N t JN t KM ,u 1 1 K , JU tK M , 

4 Chit :k» JN ) .HX( 1 •, jr«> ,MY ( IN , JK) ,MAi> i 1 N , JM , H » H 1 1 kN , Jt.M 

5 OlM'NSlOK A:|KN» ,UV < JM tTM? TA ( JK » 

b UUlEN'SlOK niK,jr.,HN).KO(lN,JN,KM 

7 iNr,i=:N-i 

a READ 1, LKtLLK 

9 1 FCrtMAT ll£I3I 


13 


REAP 2, VV1S,AUR 

11 


A3I ii = vvn 

12 


A3«2UVtf IS 

13 


A3< 3»=VVIS 

14 


A3(4)=VVIS 

I*) 


A3I5):VVIS 

lb 


A3(6I=VVI£ 

17 


B3=VVIS 

13 


READ 2» AI,AH,AV«AP 

19 


READ 2, EFStKAXI T»0MEGA,AR 

23 


READ 2, DX,DYtO? 

21 


READ 2,CC 

-» -» 


READ 2,DT 

23 


READ 2t TAI,TAMiTAV 

24 


read 2. A,3,C 

25 


READ 2t TC 

26 


READ 2t LllL»CU,tB 

27 


READ 2tTAPi, AKT, TAUX ,TAUY 

2U 


READ 2tCCKSf AVMX, AtfPK 

29 

1 

A. 

FORMAT ( » 

33 


0L2=DX*0X 

31 


CALL RtAD2b<U,V,LH,R,I ,J,K 

32 


CMAR.MRH, A1,AH,AV,AP,DX,DY, 

33 


CfCbtCWfA iBtCfEULfTfROflJff? 

34 

4 

CONTINUE 

35 


CALL PRPAFAtAI.AH.AV.AFfDX 

36 


CAPbP,TAUX,TAUY, TTOT ,MAi- ,K9 

37 


CALL TPRlM(TAI,T»H,TAVfCO 

39 


CALL PRITEX(ITN,LXJ 

39 


CALL PRPlKniV ,Ji, ,lNN,JkN , 

43 


CALL PRU V/ (I , J,K , IN ,UN ,Kt, , 

41 


CALL PRWtitiR, Jl.,K ,IkN, J.K , 

42 


CALL TP9INAI I tUfK ,IN,JN ,KN 

43 

6 

CONTINUE 

44 


END 
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9.2 Subroutines for the Near Field and Far Field 

The subroutinea for the Near field and Far field are 
given in alphabetical order in this section. These subroutines 
are called by the main programs. The Fortran symbol explanation 
can be seen in section 3 where they are explained in alpha- 
betical order". 
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9.2.1 CORINT 

This program adds Integral of Coriolis component to 
XINT and YINT. XINT and YINT are calculated in the subroutine 
INTE. XINT and YINT are integral of x and y components on the 
right hand side of Poisson's equation (Eq 2.17, Vol.l) 


SUeftOUlINC CORlKTIltJfKf lN»JN,KN,«BRtUtVtXlN1,VIN1(OZ»HltMAR) 
01MC»iSION UaA»JN,KN>,V(INt«iN*KNI,XlNTnNtJN)tVlNT(IN>JN»,HII!K» 

DO 1C l:l,IN 
DO 1C J=1*JN 

IF CHA,R( ItJI.LT.in GO TO 9 
00 0 NsZtKN 

XI»«T(1,JI:XINT«ItJI-ABft«NXn,JI*lvn,J,K-n«V(ltJtKn*OZ/2 
VXNTfI,Jl:VI»«TlltJ)*ABR*HI(I,J)*IU(ltJtK-lt «U(XtJtK|l*OZy2 
B CONTINUE 

9 CONTINUE 

1C CONTINUE 

RETUPN 
END 
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9.2.2 CURNT 

This program puts current into the model. This program 
must be changed depending on the direction and magnitude of 
the current. 

^his subroutine is not used in the sample case, as the 
current is not considered) ' 
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0 


C.CURNTS 


1C 


SUMOUTIItC CURNT$IX»4»K*lN«J»i»KN,UtV»0(i;tN«6} 
OIMCNSION b(lN,JN,NN|,V(lNtJNtNNI»OaN,JN«NNIf 
CeiINt>l*«tNI»l(Nll^«J»ttKN»»CIXNtJliitKNI 


N>iH 
00 
00 
00 
UIX 
V(X 
0(X 
Etx 
NfX 
• IX 
CON 


SKN-I 
0 XS|,XN 
0 NritNNNl 
0 

«lfN 1 •*0» 1 

J»KI:C«0 

JtKls-0*l 

J»K)SC*0 

«l«Ni:-0.1 

J»N)S0»C 

XNUe 


OCTURN 

END 


This program computes horizontal tamperature gradients at the vertical walls in 
ct and S directions from the heat flux in x and y directions. 
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CtCNXY 

SUtKOUTINC CMXVICWXtCllYtCW»I,JtK,lN,JN,KN»Hl,HX«NY,T,OZI 
OIMCNSXOK YI1K,JN,HNI»HI flK «JN I «HX ( IN t JN I tHY I XN ( JN I 
If IK.CQ.XI 00 TO Yf 
ir IK.CO.KNI GO TO XOI 
0XTZstT<XtJtN«II-T|X(JtN-Xn/l2*0ZI 
GO TO -lOG 
ff CONTXNUC 

DITZ:lN*TtXtJtK«ll-3*TtJf>»NX-TIZ»JtN«2>l/f Z*OZI 
GO TO 20G ' 

tni CONTINUE 

0XTZ=l3*T(X,JtK)l«Tnt«ltK-2l-N*Tf XtJ»K-ni/l2YDZ) 

2CG CONTINUE 

CVX:CW«tK>ll*OZ«HXIItJINDlTZ/HXIZtJ) 

CUYSCU«f K-II*CZ*Ny(X,J)*DIT2/HIfX«U I 

RETURN 

END 


,,ni(ilNAL PAGE IS 
OF POOR QUALITY 
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9.2.4 DENSTA 

This subroutine is used for the far field unstratified 
cooling reservoir. The subroutine is similar to the subroutine 
DENSTY. The only difference being that the matrix ROW (densities 
at the hall, grid points) is eliminated to save computer core 
space . 
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SKM»DULLI ll.OSNSTA 


THE rOUOWlNC F»OCn«H CALCULATES THE UCNSXTV FIELD P90H 
THE TEMPERATURE FILLO 

SUU ROUTIN'' OEMSTAd |U »K * lU »Uw tIN , JNyKNt lUN »JWM| A tC |C« 
CMAi<«MRH» 

CTiTW,Rj,RREF,TREFI 
OIHSNSIOM RO(lN,«iK',KN> ,T(lN,jNtKM 
DIMENSION TUI UK, JWNtKNl • 

DIMENSION MARIIN'fJN) tHN'H(r«N,JUN') 

DO i: 1:I,1N 
DO 1C J=1»JN 

IF (MARI I,JI .CL.C) GO TO 12 

DO 11 K=ltKN 

TEhsTII,J|K)*TREr*TRCF 

R=A*a'*Tr.M«CwTFM*TCM 

RO(ltJiK)=(R>RRSFI/RR£F 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 


9.2.5 DENSTB 

This subroutine is used for ths fsr field stratified cool- 
ing lake. The subroutine Is similar to DENSTY. the only diff- 
erence being that the matrices TW (temperatures at the half 
grid points) and ROW (densities at the half grid points) are 
eliminated '"'to save computer core space. 
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SKH*OULLm*t)ENSTB 


1 

2 

5 

s 

6 
7 
0 
9 

13 

n 

12 

13 

1<« 

15 

16 
17 
IS 
19 
23 
21 


C< 

c 

c 

c« 


11 

12 

10 


7HE FOUOWXNC PrtOCRAH CALCULATES THE OCUSXTV FXELD FROM 
THE TSMPERATUPE FXELO 

SUaROUTINE DEKSTbd »U»K t IW tUW »IN‘»UL«KN,lNN ,JwN t A tE |C| 
CHARyMRH, 

CTtRO»RREF»TRCn 

OIHENSIOK R0(1N»JN*KNI tT<lN*JN(KN) 

OIMEKSXOL HARIIL,JN)|HRH(lWN,JbNI • 

00 10 1=1, IN 
00 lU J=1,JN 

IF IKARI :,JI tCQ.UI CO TO 12 
00 11 K=1,KN 
TEMSTTI, J,K)*T«EF*TKEF 
R=A«b*TEM«CiiTEM*TEM 
ROII,U,K)=(R-RREFI/RREF • 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

ENO 
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.9.2.6 DENSTY 

This program uses the equation of state and computes 
density field from the temperature field 
Eq of State 

P - A + B tT) + C(T)^ 

In the program * 

^ • A + B (Tern) + C(TEM)^ 

Where A,B,C are constants and there values are A • 1029431, 
B - -0.00002 and C - -0.0000048 


•ooc 

« 

•OCNSTV 

a* A Ad 


ft 

2 

V w ft 

c 

1HC FOLLOWING PR06RAH CALCULATES THE DENSITY FIELD FROH 

s 

c 

THE TEHFERATURE FIELD 

% 

c**« 


5 


SU8R0UTIKE OENSTV (X tJtK tSU«JH tXNtUN tKN«XWN, JWNtA tOtCt 

ft 


CMAR,HRHt 

7 


CTtTWtROtROWtRREF,TREF) 

• 


DIKENSXON RO(IM»JN,KNI,T(XNflNtKNI 

f 


DIHENSXON ROW(XWN,«IWNtKN)»TW(XUNt>MNtKNI • 

10 


DXHENSXON HARfXKtJN) »HRHlXWNtJWN| 

11 


bo 10 XsltXN 

12 


00 10 JsltJN 

U 


IF IHARdiJI.EQ.O) 60 TO 12 

1<I 


00 11 KSlfKN 

IS 


TEHsTdt JtKI*TREF«TREF 

1ft 


Rsa«8*TEF«C*TEH*TEH 

17 


RO(I«J|K):(R-RREFI/RREF 

la 

11 

CONTINUE 

19 

12 

CONTINUE 

20 

10 

CONTINUE 

21 


00 20 XHSltlHN 

22 


DO 20 JHsifJWN 

23 


IF IMRHI IWtJHI.EQ.OI 60 TO 22 

2ft 


00 21 K:1»KN 

2S 


TENHSTHf IW»UH,K l*TREF«TREF 

26 


RWSA«B*TENU«C*TEHW*TEHH 

27 


ROMlIH|JUtK)s(RV-RRCF)/RREF 

28 

21 

CONTINUE 

29 

22 

CONTINUE 

30 

2C 

CONTINUE 

31 


RETURN 

32 


END 
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9.2.7 DINERU 

This subroutlns computss DIHUUX, DIHUVX. This program 
is called in INTE. The results are used in Poisson equation 
for pressure. 


•OOC.OXNCRU 

t 

2 

3 

4 

5 

* 

7 

♦ 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 31 

20 
21 
22 

23 

24 

25 32 

26 
27 
26 
29 
3C 

31 33 

32 

33 

34 

35 

36 

37 34 
36 

39 

40 

41 

42 

43 35 

44 

45 

46 

47 

48 

49 36 

50 

51 

52 

53 

54 

55 37 

56 


SUSROUTXKE 0XNERUfXtJ(KtXN»JN,KN,U»VtNX>0X(0V,01HUUXt01HUVX»H«RI 

OXMCNSXON UCXNf JNtKNIfVIXN,JN»KN)tHXIXNtJN)>HARCXN«JM> 

XFiMARIXf)l*EO.CI 60 TO SC 

XMH«R(Xt«n*E6.n 60 TO 31 

XFCMARIXt«ll*E0*3) 60 TO 32 

XFIHARJ.Xt*iltE0*3} 60 TO 33 

XF|HARIXf(>*e0.41 60 TO 34 

XFtHARf XfJI.EO.Sl 60 TO 35 

XFCHARfX*JltE0.6> 60 TO 36 . 

XFCKARCXiJI.EO.T) 60 TO 37 

XFtMARIXtJI*E0.8> 60 TO 36 

XFIHAR(XfH*E0.91 60 TO 39 

XFIHARIXtJ)*E0.10)60 TO 40 

DlHUUXstUIX«ltJtK)*U(X«Xf J*KI*HX(X«tfJI-UCX-lfJtKI 
C*UIX-lfl(KI«HX(X-lfJII/C240XI 
DlHUVXS(Ua«ltJfk)*V(X«lf JtK}«HXfX«l(JI-U(X-ltJtKl 
C*VIX-l>JtKl«HXIX-lfm/ (2*0X1 
60 TO 50 
CONTXNUE 

01HUUXSlU(X«ltJ »K l*U(X«ltJtK)*NI(X«ltUl*U(X-ltJ»KI 
C*U(X-lt>ltKI*HX(X~lfJM/( 2*0X1 
01HUVXS(U(I*lfJtK l*Va«ltJtKl*HX(X«lfll«U(X-ltJfKI 
C*V(X-l»U(Kl*HX(X-lfJ 11/ (2*0X1 
60 TO SO 
CONTXNUE 

DlHUUXS(U(X«ltJ«K)*U(X«ltJtK)*HX(X4l»Jl*U(X*ltU»K) 
C*U(X-ltJ>K)*HX(X-l»J 11/ (2*0X1 
01HUVXS(U(I«ltJtK l*V(X«lfltKl*NX(X«lfll*U(X-ltJ»KI 
C*V(X-ltJtKl*HX(X-l|J 11/ (2*0X1 
60 TO SO 
CONTXNUE 

.01HUUXS(4*HX(X*ltJ14U(I*lt>l*K}*U(X«l(JtKl-3*HX(XtJl*U(XfJtKl 
C*U(XtJtKl-HX(I«2|Jl*U(I«2»J«Kl*U(l42tJtKll/(2*DXl 
01HUVX=(4*HX(X«ltJl*U(T*l tJtKl*V(I«ltJtKl-3*HX(XfJl*U(X»JtKl 
C*V(XtUtKl-HX(X*2|Jl*U(X«2(J »Kl*V(X«2t«ftK> l/( 2*0X1 
60 TO SO 
CONTXNUE 

01NUUXs(3«HI(X|Jl*U(XtJtKl*U(I*J*Kl«4*HX(X-ltUl*U(X-ltJtKl 
C*U(X-l|JtKl«HI(I-2|Ul*U(X>2 «JtK l*U(X-2fJtKl 1/ (2*0X1 
01HUVXS( 3*HX(XtUl*U(XfJ,K 1*V(X t«l tKl •4*HI( I-l » Jl*U( I-l » J,K1 
C*V( X-ltJtKl«HI(I-2tUl*U(X-2fJ»Kl*V( 1-2 t«(tKl 1/ (2*0X1 
60 TO SO 
CONTXNUE 

DlHUUX:(4*HX(I*ltJI*U(I«l «J »K1*U (X* 1 tUfK 1 -3*HI(I ,J1*U(X t«lf K1 
C*U(XtJfKl-HX(X«2|J}*U(I«2fJfKl*U(X«2tU»KlT/ (2*0X1 
01HUVXS(4*HI(X« l»UI*U(I*l»J«Kl*V(X«lfJ>Kl-3*HI(XtJl*U(X»*ltKl 
C*V(IrJtK l-HX(X«2(Jl*U(l42»JtKl*V(I«2(J,Kl 1/(2*0X1 
60 TO SO 
CONTINUE 

01HUUX=IU(l4lfJtK I*U(I«l,J,Kl*HI(I«ltJl-U(I-l,JtKI 
C*U(I-ltUfKl*HI(I-l«Jll/(2*DXl 
01HUVX=(U(X*ltJtK }*V(I«lf JyKl*HI(X*l»JI-U(l-l,J,Kl 
C*V(X-ltJtKl*HX(I-lyJ 11/ (2*0X1 
60 TO SO 
CONTINUE 

01NUUXr((t*HX(I« 1» J1 *U(X« 1 ,J,K 1*U (I* 1 t«lfK 1-3*HX(X f)l*U(I»*ltK 1 


OWGfNAL PAGE 

-OR QUAll 


IS 

TV 


57 

St 

St 

to 

it 

42 

43 

44 

45 
44 
47 
4t 
49 

70 

71 

72 

73 

74 

75 
74 

77 

78 

79 

to 


C«UIX»J|K)-Hl(f*S»J)*U(1^2t«ltKI*U(X«2tJtKII/l2*OX> 
01NUVX:f4*HX(X«X»JI*U(X«X»UtKI*VII«lt*l|Kl-39HX(Xt«IMUfXtJtKI 
C*VCXtJfKI-HX(X«2t*ll*UCX«2»JtKI«VIX«2tU»Kn/l2*0XI 
60 TO so 
3t CONTXNUE 

OXHUUXSIUIX«ltJ*K )*U(X«ltJtKI*HXIX«l(J)*UIX-XfJtK> 
e*utx-XtJtNi*HXii-it*m/(x*ox} 
01HUVXSCUtI«l*JtK)9V(X«l«J»K)4HX(X«ltJ)-UIX-X»JfK> 
C*VIX-l|J»KI«HXfX-XfJII/C2<»0X} 

60 TO 50 

39 CONTXNUe • 

DlHUUXsl39HXfXt JI«UIXtJtKI«UCI|UfK»*44HXfX-lfJI9UfX-lt*ltKI 

C*U( X-1 1 J tXHHl (I-2t«n*UCX>2 tJfN 1*U( 1-2 tUtKM/ 12*0X1 
DlHUVXS|3*HXCItJI*UntUtKI*VfI(JtK}-4*HXIX-lfn*UfX-lt«l»KI 
C*VCX-lt>l«NI*HX(X-2»«l)*U(X-2 *JtK}«VII-2t4fK> }/f 2*0X1 
60 TO SO 

40 CONTXNUE 

01HUUXst3*HXIX»JI*UtX»JfK)*UfXtJtKI-4*H2tX-lt«n*UfX-Xt«l»KI 
C*UIX-l»JtKI«HX(X-2tJ)*Uf 1-2 t«>tKl*U (1-2 2*0X1 

01HUVXsl3*HX(It«i>*U(XtJ(K}*V(XtJ(Kl-4*HX(X-l»U>*U(X-l»JtNI 
e*V(X-ltJfKHHX(l- 2 »J)*U(X- 2 t*ltKI*V(I- 2 tJ»Kn/( 2 * 0 X} 

SC CONTXNUE 

RETURN 
ENO 


. 


1 
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9.2.8 DUVY 

This program eomputaa DIKUVY. Tha program It callad In 
by INTE. d (huv) is computad for in tar lor, boundary and cornar 
points by the scheme similar to the one used in DINERU. 




« 


l«OOC cOUW 
1 
2 
i 

s 

ft 

T 

ft 

t 


10 


11 


12 


13 


1ft 

* 

IS 


1ft 


17 

31 

IS 


It 


20 


21 

32 

22 


23 


2ft 


25 

33 

2ft 


27 


2S 


29 

3ft 

30 


31 


32 


33 

3S 

3ft 


35 


3ft 


37 

36 

3S 


39 


ftO 


ftl 

37 

ft2 


ft3 


ftft 


ftS 

36 

ftft 


ft7 


ftft 


ft9 

39 

SC 


51 


S2 


S3 

ftC 

5ft 


55 


56 

SC 


SUmOUTINE OUVVfI»Jtft*XN»JNtKNtU»VtNX«OVtOlNUVV»HAfll 

OXftENSXOh UfXN»JN|KNItVtXN»JN»NN>»NXIXNtJNItMAIMlN»JNI 

XMMARIXfJI.Ee.CI SO TO SO 

XrfMAftlXtJI.EO.II SO TO 31 

IMNAIMXfJ>tE0.2) SO TO 32 

XMMAftCXiJI.EC.SI SO TO 33 

XF|HARIXtJ»*eO.«l SO TO 3ft 

XP(HAft|X,JI .EO.SI SO TO 3S 

XMHAR(X|JI»EQ*ftl SO TO 3ft 

XMHARIXfJI.£0*7l So To 37 

SP|MAR«Xt*ll,EO.|l 60 TO 3ft 

XFCRAR|X,UI.E0*91 60 TO jft 

XFCFARXXtJItCe.XOISO TO ftO 

OXHUVVsfUlxtJ«XtKl*V(XtJ«ltRlftHXIItti«n-UfX»J-ltK} 
C*VtXfJ-lfKl*HXIXfJ-lll/l2ftOVI 
SO TO SO 
COKTXNUE 

01HUVY:f3ftHX(X«J|ftU(Xt*lfKI*VIXt*ltK>-ftft'HIIX»J-l)*U(X*U-ltKI 
C*VIXtJ-XtKMHXntJ-SUUlXt*l-2.Kr/ftV|X,J-2,Kl|yC2*0YI 
GO TO SO 
CONTXNUE 

01HUVYS(ft*HXlXt«>«ll*U(Xt*l'»lfK}*VIItJ«Xti<)*3*HXIX»«ll* 
CUIXtU|K)*vCXtJ»K>-HX(XtJ«2)*U|X,J«2»KI*VatJ«2tKII/(2*0Y} 
SO TO SO 
CORTXNUE 

01NUVYS(U(X,J«ltKI*VIX,J«<i(RI*HXIX»J«lim(XfJ-l»KI 

CftVIXtJ-XtK)*HXCXtJ-X))/|2ftOY| 

60 TO SO 
CONTXNUE 

OXNUVY:|UfX|J«XfK)*VIXt«l<'I*K>ftHXIXt*i«XI-UIItJ-X»KI 

C«V(XtJ-ltK>*HXfX»J-l||/|2ftOY) 

60 TO SO 
CONTINUE 

0SNUVYs(3*HItIt*>l*Uat*l»KlftVCXtJtKX-ftftNXCXtJ-l}*UtXtU-l|K) 
CftV(X|J-ltN)*HX«X»J-2>*U(Xf«l-2 .K|*V(X»J-2tKI}/l2«0Y) 

60 TO SO 
CONTXNUE 

OINUVY:fUCX,U«i,K)*VtXfl«ItKX*HZIIt*i«SI-UatJ-l»K) 

C*V(XtJ-l»K)*HXIXf«l*l))/|2*0Y| 

60 TO SO 
CONTINUE 

01HUVY:(ft*KX(X,j4X|*UIXtJ«XtK}«VlZt«l«l»K)-S*NIIZ»Jl* 
CUatU,KMVfXtJtKI-HXCXtU«2>*U(XtU*2tK}*VfXfU«2fK)l/l2«'DY) 
60 TO 50 
CONTINUE 

01HUVY:(U(X,J«X«K)*VfX,j41,Kl*HZIX,«i«XI-U(X»J-XtKl 

C«V(ZtJ~ltK>«HIIX»J-X)}/|240Y> 

60 TO 50 
CONTINUE 

01NUVYsC«*HZ(X,J4l|4>ua,j4XfK|4iVCZ(J4i,K|-3*HXCX t*>l* • 

CUfXt JtK)*V(Xf J|K}*HXiX(J42)4U|X,j42,KI*V(X,j42,Kll/C2*0Y} 
60 TO 50 
CONTINUE 

01HUVY=(3*HX(I»JI«UlX,J,Kl*VfI,J»KI-N*HICI,J-l)*UfXtJ-lyKt 
COVlItJ-tvKMHKltU'ZT^UtZtU-S .K )*Vf I .J>2 ,Kn/(2*DYI 
CONTINUE 


POOR 


QUM 
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9.2.9 DWY 

This program computaa DIHWY. This program is callad by 
XMTE. d <hw) la computad for Intarlor, boundary or corner 
by tha schama similar to tha ona uaad In tha aubroutlna 
DINERU. 


I 


*ooc«ovvv 

1 

2 

3 

4 

5 
ft 
T 
• 

9 

10 

11 

12 

13 

1ft 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2ft 
25 
2ft 

27 

28 

29 

30 

31 

32 

33 
3ft 
35 

3* 

37 

38 

39 
ftO 
ftl 
ft2 
ft3 


31 


32 


33 


3ft 


35 


36 


37 


ftft 

ftS 

fti 

ft7 

ftft 

ftV 

50 

51 

52 

53 


38 

39 
ftC 


SUOROUf INC 0 V VY <Z t«l *K f IN « JN ,KN ,U ,V, HI »0V tOlNWY tMAR I 

OIMCNSIOR U(ZNt jN»KNItV(lNf JNtKNltHIIlN»*INItNAR(IN«JN| 

ZFCHAR|X,Ul.eO.C) 60 70 50 

XMNAR(It«ll«E0.1l 60 70 31 

XFIMARIXtJI.EC.2l 60 70 32 

XFlMARIZtJltEO.S) GO 70 33 

XFCMARCItJI.EC.ftI 60 70 3ft 

lFIHARfZtJl«E0.51 GO 70 35 

XF(HARfltJI.EO.ft) 60 70 3ft • 

• XnMARlZtJI.E0.7l 60 70 37 
lFIMARIItJl.E0.8l Go 7o 38 
XF(HARCZ»JI.EQ.9I 60 70 39 
inHARCZtJi.EO . 10160 70 ftO 

01MVVV:|VfZtJ«ltKI*VtZtJ«ltK)*HI(Zt J«ll*V(ZtJ*ltKI* 
CV(ZtJ-ltKl*HZIZtJ-in/l2*DV) 

60 10 50 
C0N7ZNUE 

DlHVVV:|3ftHZtl,J>*VtZ »J .K l*V CZ fJ tK > «H1 IZ t J-21*V CZ tJ-2tKI 
C*V(ZtJ*2tKl«ft*Hl(ZtJ-ll*V|Z(J-l.K)ftV(Z,J-ltK))/(2«>0V} 

60 70 SO 
CONTZNUE 

01HVVV=f4*HZ(ZtJ«n*V(Z tJ«l fKl*V(Zt J«l»KI-3*HZatJl*V(ZtJtKI 
C*VIZtJfKl>HZ(ZtJ«2lftv(XtJ«2tK)*V(ZtJ*2 ,KM/|2*0VI 
60 70 SO 
CONTINUE 

01HVVV:|«fZtJ«ltK l*VfZ,j4itK»ftHZ(Zt J«ll-V(ZtJ-lfKl<t> 
CV<ZtJ-ltKl*HZ(ZtJ*ll 1/ C2*0Y) 

60 TO SO 

. continue 

01HVVys(VIZtJ«ltKI*VatJ«lfKl*HZIZtJ«ll-V(ZtJ-ZtKl>t> 

CVCZtJ*ltKl*HZ(ZfJ*l))/|2<*0V} 

60 TO SO 
CONTINUE 

01HVVY:t3*HZ(XtJMVtZtJtK)*V(ItJ»K}«HZ(If J-21ftVf ZfJ-2»K) 
C*V(ZtJ*2tK}oftftHX(ltJ-l}4iV(Z,J-l,K)*V|Z,J-ltKn/l2*DV} 

60 TO SO 
CONTINUE 

01HVVYstV(XtJ<*ltK IftVIX tJ<ltNlftHZ(Xt J«ll-V(XtJ-ltK)<» 

CVTXt J-l.Kl«HX(XtJ-in/l2*0Y| 

60 TO SO 
CONTINUE 

01HVVY:Cft«HX(Xf J«l)*VfXf J«ltK)*V(Xi J«ltKl-3*HXtXtJl*Vf Xt JtKl 
C*V(XtJtKl-HXIXt J«21*V(X»Jt2 ,K )*V (X, J«2 .K ))> (2*0Y I 
60 TO 50 
CONTZNUE 

OlHVVYsf V(X,J«1,K |*V(X ,J«1 »K )*HZ (X , J«1 1 -V (X .J-lfKl* 
CVlZtJ-ltKlftHKXrJ'lll/tZAOY) 

60 TO SO 
CONTZNUE 

01HVVY=|ft*HZCIt J«ll<»Va *J«1 »KI*V(Xt J«lfK )•3*HXfX tJ)*VCZt JfK* 
CftVtZtJtK}>HZ(X»J«2)*V<ZtJ-»2»K|*V (I , Jt2 ,K |)/ (2*0Y ) 

60 TO SO 
CONTINUE 


Sft 01HVVY:t3*HX(X»J)*Vll ,J,K I* V(I . J»K I «HI( I « J-21*V( Z «J-2tKI 

55 C*VCltJ>2»KI-ft«HIII»J-l)*V(I tJ-i,K)*V(I,J-ltKn/f2*0VI 

56 SO CONTINUE 
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9.2.10 DIVSU 

This subroutine computes DIUX, D2UX, DIUY. This program 

dll dll 

is called by INTE. ^ and are computed for interior, 
boundary or corner points by a scheme similar to the one used 
in DINERU. 


I 
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i*ooe.ovisu 

1 

2 

S 

< 

5 

« 

1 

* 

10 

11 

12 

IS 

1« 

15 

16 
IT 
18 
18 

20 31 

21 
22 

25 

26 

25 

26 32 

27 

28 

29 

30 

31 

32 33 

33 
36 
SS 
36 


ST 

38 

39 

60 

61 

62 

63 

66 

65 

66 

67 

68 
69 

50 

51 

52 

53 
56 

55 

56 


36 • 


35 


36 


37 


SU880UTlkC OVlSUCXfJ»KtXN|JN,KK,U,V,HI,0Xt0Y;01UXtD2UX,OlUV»02UVt 
CMARI 

CXMCNSIOK UIXkiJNtKNIfVfXNtJNtKNI tHKINtJNI (HARIXMcJNI 
XMHAft(Xt>l>*eC.C) 60 TO SC 
xnRARiXt«fs*eo.n go to 3i 

lFIN6PfXtJX*e0.2} 60 TO 32 
XFIHARIXt»IX*E6*3) 60 TO 33 
SPIHARIX»J)*E0»6) Go To 36 

XMHARCX»JI*EQ.SI 60 TO 35 « 

XFIMARCXt*)X*E0.6) 60 TO 36 

XFlHARCXtJ)*E0.7l 60 TO 37 

XMMARIXt«ll*eQ.A) 60 TO 38 

XP(HARCX,JI*E0*9I 60 TO 39 

XFlMARCXt«ll*E0*X0)60 TO 60 

01UX:lUll«ltjtKX*UlX-ltJtKn/ 12*0X1 

01UVslUIX»J«ttKI-U(Xfi-lfKn/(2*oV» 

02liX:(U(X«l,U ,K |-2*UlX tJ,KI«UtX-xtJ(Kn/(OX*DXI 
02UV:tUI X*J«l(Kl*2*ufXtJfK»«UlXt«l-ltK||/(DY*0Y) 

60 TO 50 
CONTXNUE 

OlUXstUCX*l,J «K |-U(X-1,J (KM/ (2*0X1 

02UXS(U( l«ltJ(Kl-2*U(X |JtKI«U(I-l»JtKn/(DX*DXI 

0lUYs(3*U(Xfl»KI«UtX«J-2tK)-6*U(xtj-ltK>>/(2*07) 

02UYs(U(X,Jtk l«U(XtJ- 2 fK )- 2 *U(X i J- 1 fK})/(OY*OYI 

60 TO 50 

CONTINUE 

01UXs(U(X«l,JtH )-U(X-l|U,Kn/(2*0X) 

02ux-(U(X«ltJ*K ,J ,K)4U(I-l,J,Kn/(0X*0X} 

01UY:l6*U(l»j«ltKl-3*U(XtJtKI-u(XtJ42tKn/(2*0V| 

02UY=(U(XfU*2»K )«U(XtUtKI-2*U(ItJ4ltKM/(0Y*0YI 

60 TO SO 

CONTXNUE 

01UY=CU(X»J«ltK>-U(XtU*ltKn/(2*0YI 
D2UYS(U(ltJ«ltK l•^*Ull•JtKl4U(XtJ-l »Kn/IOY*DYl 
D1UX=(6*U(X«1,J ,K l•3*U(X»JtK)-U(I«2 «J,Kn/(2*0XI 
D2UX:(ut X«2»JtK}-2>iiU(I«lfl,K)«U(X,J,K)l/(DX*0X} 

60 TO SO 
CONTXNUE 

01UYS(U(X,J«X,K |-U(I,J-l,Kn/( 2 * 0 Y) 

02UYS(UI X* J*ltK I-2*U(X*J*KI4U(I»J-1 »Kn/(OY*OYl 
01UX:(3*U(X»J ,K )-6*U(X-l|Jf K>«U(I-2(J»KIW(2*0X1 
02UXr|U(X,J,K )-2*U(X-l,U (K ) «U (1-2 tJ •Kn/(DX*OX} 

60 TO SO 
CONTINUE 

01UYS(3*U(X,J,K |4U(X,J-2fKI-6*U(XtJ-l*Kn/(2*DY} 

02UYS(U( X*J(K)4(j(l,j-2tKl-2 «U(It J-1 tX))/ (DY*0Y} 
0lUXs(6*U(l4l,J,Kl-3*U(I»j(Kl-U(I42,j,Kn/(2*0X) 

02UX:(U(X42,U,K |.2«U(l4},J,Kl4U(I»JtKI)/(DX*DX) 

GO TO SO 
CONTINUE 

01UX:(U(X4},J,K }-U(I-l,JfKl )/ (2*0X1 
OIUY’(U( X»J4l,K l-Ud ,.i-l,Kn/(2*0YI 
02UX:(U( I4l,J,K >2*U(ItJtKl4U(I-ltJ*K)>/(DX*0X} 

02UY:(U(XtO«ltK l-2*U (X tJ «K I «U (Z tU-1 iK> DY*OY I 

60 TO SO 

CONTXNUE 


S7 


01UYsl4*UIXtJ«l*Kl-3*UfXtJ»K>-U(XtJ«2fKn/C2*0YI 

sa 


02UYr|U(X,JI*2iK l«UIXtJtK»-2*U<XtU«lfKn/IDV*DY> 

59 


01UXst4*UIX«ltJ tKI-3*UfXtJ»Kl-UfX42fJtKI)/C 2 * 0 X 1 

60 


02UXSCuCX«2fltKI-2*U'X«ltJ»K)4U|X(J,K)>/IDX*0XI 

61 


60 TO SO 

62 

38 

COMXNUE 

63 


OlUXSCUl X*lt«l«KI-UfX-ltJ(Kn/f 2*0X1 

64 


OlUYs'ifuC Xf J*lfKl>UIXrJ>ltKn/l2*0Y| 

65 


02UX:CU<X«l,J(Kl-2*UIX»J«K>«U(X*itJtKn/CDX*0X} 

66 


D2UY:|U(Xt*l4l»K |.2*Ua(JtK)«UIXf)-lfKn/(DY*oY) 

67 


. 60 TO SO 

68 

39 

CONTXNUe 

69 


01UYr|4*U(X>J«ttKI-3*UIXfltXI-UtXfJ«2tK|}/(2*0Y) 

70 


02UY:iU(lt«l*2tKI*UCX«J |K }-2*U(Xt tKI }/ (DY«OYI 

71 


01UX:C3*U(XtJ«K »*4*U(X-lt«ltKI«UCX*2 iJfKI t/f 2«0Xl 

72 


02UXS(UISfltKl-2*UtX-ltJtKI«UIX-2t«tfKI)/(0X*0X) 

73 


60 TO SO 

74 

40 

CONTXNUE 

75 


01UY:t3*UfXtJ»K>«UtXfJ«2tK)*4*U(Xt«l'ltK))/l2*0Yl 

76 


02UYstu(XfUtK)«U(XtU*2fK )>2*U(X,U-1 ,Kn/CDY*0Y) 

77 


01UX:l3*U«XtJtK l•>4*U(X-l t Jt K)«U (X-2 t JtKl ) / 1 2*0X) 

78 


02 UX:(UCX,J,Kl> 2 *UCX-l,JtK)«UCX- 2 «J ,Kn/(DX*OX) 

79 

50 

CONTINUE 

80 


RETURN 

81 


END 
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9.2.11 DVISV 

This program computes DIVY. D2VY, DIVX AND D2VX. This 
program Is called by subroutine INTE . Schemes used are 
similar to the one used in DVISU. 


1 


SN«OOC*OVXSV 

1 

2 

3 

H 

s 

7 

9 

to 

n 

12 

13 

11 

15 

16 
17 
16 

19 

20 31 

21 
22 
23 
21 
2S 


26 

29 

30 

31 

32 

33 
31 

35 

36 

37 

3® 

39 

“0 

11 

12 

13 

11 

15 

16 

17 

18 
19 

50 

51 

52 


32 


33 


31 


35 


36 


S3 

51 

55 

56 37 


SUBROUTIKC 0 VISVIXfJtK»XNiUNfKN«UtVtNIt 0 X| 0 Yt 01 VXt 02 vXt 0 lVVf 02 VYt 
CHARI 

OXHCNSXOK U(XK»JN,KNl,VfXN,JN,KNI(Hl«XN,JNItMARIXN,^| 

XF(HARIXt*il*eo.CI 60 TO SO 

XFIMARtXvJI.eO.ll 60 ^0 31 

XF|MA.2(XtJl*S0.2l 60 TO 32 

XFtHARCXtJl*eo.3l 60 TO 33 

XFIHARCXtUI.eO.ll 60 TO 31 

2FtNAR|X,JI*eO.Sl 60 TO 35 • 

XFIMARIXtJI*E0.6l 60 TO 36 

XFlHAR(Xt«ll*E0.7l 60 TO 37 

XFtMAR(X,J|.e0.8| 60 TO 36 

XF«MARtX»JI*eO«91 60 TO 39 

XFlHARntU)*e0.10l6o To 9c 

DlVXS(VIX«ltJ»K l-V<X*lfltKII/ (2*0X1 
D1VY:(V( Xt«J«ltK l-V(X*J*ltKI l/(2*0YI 
02VXS(V(X«ltJtK f-2*V(XtJtK}«V(I-l«JtKll/(Ox*OXl 
D2VYS(V(Xt«>*ltK l• 2 *VIXt•l•Kl«V(Xt•l-l tKn/(OY*OYI 
60 TO SO 
CONTINUE 

D1VXS(V(1«1,J,K )-V(X-1»J*KII/(2*0XI 
02VXS(V(X«ltJtKl-2*v(XtJtKl«V(X-ltJ ,K)|/(DX*OX} 
0lVYS(3*V(X«JtKI-1*V(xij'ltKHV(X«j>2fKM/(2*DYI 
02VYS(VdtJtK l«V(Xt*l*2tKl«2*V(XtJ-ltKn/(0Y*DYI 
60 To Sq 
CONTINUE 

01VXS(V(X41,J ,K l-V(X-|fl tK 11/ (2*0X1 
D2VX=(V(X*l»JtK )-2*V(X,J,KI«V(X-ltJtKn/(DX*0XI 
0 lVYS( 4 *V(ItU«ltK}- 3 *V(X»J»K>-v(X|J« 2 fKI|/| 2 *DYl 
02VYS(V(X»J«2»K l«V(XfJtK l•2*V(XtU«ltKl>/(DY*DYI 
60 TO SO 
CONTINUE 

01VY:(V(X»J«ltK l-V(XtJ*ltKl}/(2*0YI 
02VYS(V(X»J«lfK l«2*V(XtJtNMV(XtJ-l fK)|/(OY*OY> 
01VXs(1*V(X4ltJfKt-3*V(x*J»Kl-V(X«2fJ|K)l/(2*0X> 

02VXS(V(X«2»J,K 1.2*V(X4x,U,K|4V(I,J,K)l/IOX*nXI 

60 TO 50 

CONTINUE 

01VYs(V(Xt«l*l»K l-V(XtJ-l(KI 1/(2*071 
D2VYStV(XtJ*l»K I-2*V(X,J,K)4V(X,J.1 ,Kn/(OY*OYI 
0 lVXs( 3 *V(XtJfKl* 1 *V(X-ltJtHMV(X- 2 »JtKn/( 2*0X1 
02VXS(V(Xt*ltK l-2*V(X-l»J*K|4V(i-2tJtKll/(0X*OXl 
60 TO 50 
CONTINUE 

01VYs(3*V(l,U,K l•4*V(X«J•ltK|4V(XtJ•2tKll/(2*DY> 

02VYs(V(X,UtK |4v(Xfl*2»K}o2*V(l,J-l ,K1)/(OY*OY1 
01VXS(1*V(X4l,J tKl*3*V(Xf JtKl-V( 142 ,j,K)l/( 2*0X1 
D2VXs(V(X42»J,K 1-2*V(X41,J,K14V(1,J,KII/(dX*0X1 
60 TO SO 
CONTINUE 

01VXs(V(l4l,JfKl-V(X.l,J,Kl 1/ (2*0X1 
01VY:(V(ItJ4l,K l*V(X(J>ltK)|/(2«0YI 
D2VXs(V(l4l,U,K l-2*V(I,J«Kl«V(X-lfJtKll/(0x*0Xl 
02VYS(V(ltJ«ltK 1*2»V(X «J tKMVd tK 1 1/ ( DY*DY1 
60 TO SO 
CONTINUE 
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I 

I 

r 

r 

r 

r 

T 

? 


S7 

SI 

59 

10 

*l 

12 

13 

M 

15 

16 

67 

68 

69 

70 

71 

72 

73 
79 

75 

76 

77 

78 

79 

80 
81 


DlVY:C9*VIXtJ«lfKI-3*vn»JtKI-va»J«2fK 11/129071 
D2VysiVIX»J«2,KI«VIX»J,KI-2 9VCI»U4l,Kn/IOY90Vl 
0SVXrf99VfX«l,«l ,K l-39V(X i JfK l-V IX«2 ,J»K 1 1 /1 290X I 
02VXSIVI I«2»JfK l-29VlX«ltJtXl«V|X,J ,K I |/f 0X90X1 
60 TO SO 

38 CONTXNUe 

01VXs'('YCX«ltJfK >*VIX-lfJtK>l/C290Xl 
OlVYsfVC XtJ«ltK)-V(Xt«>-'ltKn/(290YI 
D2VX:iVI2«X»JtKI-29VfXfjtK)«VfX-ltJtKI 1/10X90x1 
02VYsfVt If J«ltK l-29VtXff|K)4V(ItJ-ltKII/(oY9oYl 
60 TO SO 

39 CONTINUE 

01VY:|99VfXtJ*lfK|.39VIXfUtKI>V(2»J«2tKll/(290YI 
02VY:|VtXfl«2»KMVtXtJ(K)-2 9V(X»J«l ,Kl|/t0Y9DYl 
OlVXSISIVCIyJtKI-ilYVfX-lfjfKl^Vf X-2tJtKl)/l290Xl 
02VX:CV(X,J«K l-29V(X-l «J ,K1 4VCX-2 tJ tK 1 1/ (0X90X1 
60 TO SO 
9C CONTXNUE 

0SVY=(39V(XfJ tK l.99V(I,U-ltK|4V(XtJ-2tKn/(29DYl 
02VY=(V( XtJtKI« V(XtJ-2iKI-2 9V(X,J-1 vKll/(DY90YI 
01VX=(39VII,U,K l•99V(X•l,J,Kl«V(X•2fJtK) 1/(29 OX) 
02VXS(V(ltJtK 1-29V (I -1 tJtKMV (1-2 tJfK))/( 0X90X1 
50 CONTXNUE 
RETURN 
END 
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9.2.12 D12Z 

This subroutine computes DIUZ. DZUZ» DIVZ, DZVZ. D1A3Z, 
DKJVZ. This subroutine is called by INTE. At points on the 
surface, KN«1, forward difference scheme is employed. 


I 


woe 

1 

2 

s 

« 

s 

0 

7 

• 

9 

10 

n 

12 

13 

19 

15 

16 

17 

18 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 

38 

39 

90 

91 

92 

93 


•0122 

C •****99***99*9**«««****9«9*«*999M**«**9«*********9****«99*9*9*«**M9 

C THIS P906RAH CALCULATES THE 2 DERIVATIVES 

C *M*M*«*«9*»»******«M«»**9*««999*«*9*«M*********«9**99***99******* 

SUBROUT IRE 0 1 22 II tJ tK (IN ,UN (KN »U »V » V tNI • HX tHV f DX f DV f02»0 lUU2t 
CA3,TAUX,TAUV, 

C01VW2i01U2,D2U2f01VZt02V2f01A32l 
DIMENSION UlINtJNtKNItVCINtUNtKNIfU IINtJNtKN|,HICINtUN|, 
CHXIIN,«fNI»HYCINtJN| 

DIMENSION A3CKNI • 

‘IF CK.EQ.ll 60 TO 61 
Ip CK.EO.Kn* 60 TO 62 
DlUZsCU(ItJtK*ll-UtltJtK -11 1/12*021 
01VZ=fVfl,J,K«ll.VCI,J »K-11 1/12*021 
02U2s|UCItUtK<tll-2*UCltJtKl«UlltUtK •111/ 1 02*021 
02V2sCVII|JtK«ll-2*VlxtJ(KT«VIIt«ltK-ll 1/1 02*021 
01A32=|A3IK«1I.A31K-H 1/1 2*021 

01uN2=IU<ltUtK«ll*W(l»J,K4l|-Ufl,J,K«ll*U<ltJtK- 111/12*021 
01VU2rtVlltJtK<»ll*UII«JtK«ll-VlltJ»K-ll*u(Zt«ltK«l||/t2*02l 
60 TO 63 

61 CONTINUE 
01U2:HI(l,Jl*TAUX 
01V2sHI(ltJl*TAUY 

02U2s2*(UlltJtK*ll*u<I«JtKl 1/102*02 |•2*<TAUX*H1|I ,J1/021 
02V2=2*I VIItJfK «1 l«Vtl •JfKll/ (02*02 1>2*IT AUY*HII It JI/O 2 I 
01A3Zs(9*A3(K411.3*A3(K1-A3(K«2 11/(2*02 1 

01UU2S(9«u(ltJtK-*ll*H(I tJtK«ll*3*U(l,J,Kl*H (ltJtKl«U(I«JtK«2l*H(I 
CtJtK*211/(2*021 

01VW2:(9*V(I»JtK«ll*HII»JtK«ll-3*Vll*JtKl*U(x»J* Xl 
C-V(lt«l«K*2l*W (I ,JtK*21 1/(2*021 
60 TO 63 

62 CCWTINUE 

01U2s(3*U(ItJ tK 1-9*U(I ,JtK-ll«U(ItJ tK-21 1 /( 2 * qZI 
01V2s(3*VlltJtKI-9*V(ItJfK-ll«V(l,J tK«2 11/1 2*021 
02U2s(U( It JtK>21«U(I(JtKl-2*U(l»JtK*ll 1/(02*021 
02V2s(V(ltJtK>21«V(IfltKl«2*V(ltUtK-lll/(o2*021 
01A32:(3«A3(K1-9«A3 (K-ll«A3(K-2l 1/(2*021 
01UW7:(3*U(ItJtKI*W(ZfltKl*9*U(ItJtK-ll*M(ItJtX>ll 
C4U(ItJtK-2l*U(I,JtK *21 1/1 2*021 
Dlvw2:(3*V(ZtUtKl*U(ItU,Kl49*V(ItJ,K*ll*W(ZfJ,K-ll 
C«V(ltJtK-21*U (I tJtK-21 1/(2*021 

63 CONTINUE 
RETURN 
ENO 
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912.13 ERROR :Calculat«f "HIRT and HARLOW" corractlon tana at half 
grid points and at tha aurfaca. Tha last tarn In Polaton'a 
aquation la "HIRT and HARLOW" corractlon tarm. Thla la aval- 
uatad by a backward dlffaranca In tlma with praaant tlma aat 
aqual to zaro. Thla la nacaaaary bacauaa Polaaon'a aquation la 
uatially sol’d'ad by tha Itaratlva tachnlqua usually laadlng to 
arrors. If thay ara not corractad, continuity aquation will 
not be aatlsflad laadlng to accumulation or loss of fluid from 
the system. 

In the program 

WHLDT (IW, JW) - -WH(IW.JW.l) 

DT 

WH at previous time step Is set at zero« 

WH at present time step Is nonzero. 
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4«0ec •CtROM 

1 c*********************************************************************** 

2 e IHIS RROtRAM CAUU.ATCS THE NXRT ANC HAREOH CORRECTION TERN AT THE 

S C SURFACE 

4 CR********«*R*«R****R*R***«*R**R**R***A**A*******«******R**R««*R***M*AAi 

5 SUIROUTXKE ERRORIIHNt«lliN(IH t*IW«DTtHM>VHLOTtKN«MRHI 

A OXNENSXON UHLOTIXMNtUVNI fHH (XHN|JHN »KN| 

7 OXHENRION NRHtXMNtJHNI 

• C HHLDT IS THE TXHE DERIVATIVE OF V AT HALF CRXO FOXNTS AT IZO 

* DO 3X00 XHsX.XUh 

10 . DO 3X00 UVSX»JHK • 

St IF IHRHUVtJVI.EO.CI SO TO 3000 

52 HHLOTIXMt«IHIs-UHtXH«JVtXI/OT 

53 3000 CONTINUE 

X« 3XCC CONTINUE 

XS RETURN 

SO END 
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9.2.14 FOIOI:lhi« progrn cciiiMt^ R.H.S. of Poltton't oquation at 
half grid points. 

PH- 


This program takes 1 v, 1 u, Bx and By equal to zero 

RB RB 

dPs - DPSX 

and 3Ps at half grid points is average of four surrounding main 
da 

grid points . 

d (XINT) , JL (YINT) at half grid points is average of four 
la dB 

surrounding main grid points. 


1 |_(-Ax, + a* 2 + e, . xp) 


+ 18 (-Ay, -AV2 + Cy -YP) 

h 7B 


1 /dh dPs 
K\?a 5o“ 


+ dh dPs\ -dfll 

RT/ Rtiz - 


1 d (XlNT) + 1 d (YINT) 

B Ra B RR 

. 1 f dh (DPSX +1 V -Bx) + dh (DPSY 

B LRa RB RR 

- WHLDT 


-1 

RB 


u-By)J 


J 
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l•ooe•rellce 

I 

t 

s 

% 

t 

4 

7 

$ 

9 

10 

11 

12 

11 

1« 

IS to 
1* 

17 

It 

17 

20 

21 

22 

23 

2 « 

2S 

2 t 

27 

28 

29 

30 9 

31 10 

32 
S3 


SUIROUfSftC r08CtlStJttUf*IUt3SN7tVIN7|WNL0Tf0Xt0YtNlfHXtHVt 
CRXNt 

C09SX t09S VfPN I M9 »1N » JN »1 VN fJWN fRlNTX |R SNTV fU »¥ »CUL t AM »NA R« IMO 
OIMCNSlOt XXNTItNtUNIfVXNTtXNtJNItUNLOTnUNfitUNI (NXIXHt JMltHXIXNi 
CJNI»HVIXNt.lN)>09SXIXN»JNif0MV(XNtJNItrHIXHN»^yNt 
OXXCNSXOt NRHIXMNtJVNI 

OXMCNtXOt 8XNTXCXN|«INtXNItllXNYVIXNt«IN«KNItUfXNtJN«KN>fV(XNf JNtXNI 
C»NAXrXN»4NI 

KSl , 

00 >0 .SlfXN 
.00 vO JSltJN 

XMHAIIIXfJl.LT.il I 00 TO 90 

09SXCXtJ1809SXfXfJI-eUL98XNTXfXtJtKMVfXf J|NI*AOII 

OOSTIXf JlSOMmfJI-CUL*RXNTVCXfafKI-U(XtJfKI*AM 

CONTINUE 

00 10 IHStfXUN 

00 10 JHZltJUN 

XZXM 

JS«IU 

IP IMNHIXHfJMl.EO.OI 60 TO 9 

opsxNsiopsxiXfJi«opsxa«itJi«opsxtXiJ«ii«opsx(x«ifj«in/<i.o 
0PSYNs|OPSVIXfJI«DPSYtX«lfJl40P$YfXtJ«l>«0PSYfX«liJ«ll)/N.0 
HXHSfHXCXfJMHX CX«ltJl«HX(Xf J«1)«HX (X«l|J«ll}/9.0 
NYH:iNYl2f*ll«HYII«ltJl«HYIXfJ«ll«HY<X4lf«l4in/i|.C 
0XXNT:iXXNT(X«lfJl4XXNTIX«lfJ4ll-XXNTCXfJl-XXNTIXtJ4lll/f 2*0X1 
0YlNT:(YXNTfXfJ«ll«YXNTtX4lfJ«l}-YXLTfXf Jl-YXNTfX«liJII/l2*0YI 
HH:lHXIXfJI«HXIX«lfJl«HX(XfJ«l}4HX(I«lfJ4l) 1/9.0 
FNfXVfJWl:|l./API*l-(l./HHl<»(0XIKT«CYXNTl-NHL0TI2UfJUt-(AP/NH)* 

C (HXH«OP$ XH«HYH*OP$YN I I 
CONTINUE 
CONTINUE 
RETURN 
ENO 


^f^lGINAL PAGE f« 

OF POOR 
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9.2.15 GRADS 

This program compute slopes of the bottom using non- 
dimenslonellzed and unstretched depths and a and 6 coordinates . 


I 






F 


I 

I 

[ 

[ 
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H*OULLm .GRADS 
1 
2 
3 

1 C 


SUSiiOUTINF eaADSIlM»JM(KN,IW(;,JWN»Hl»HKfHY»HA2»HRH(rX«3V) 
OIMChSlOK MAR(IK'|U'V)*Hl(lN|JM»HXIIN,UNl|HVaN»JMI 
OXhCNSXOK HRHIlUN.JWN) 

TO CALCUUTt HXAKO HY 


5 

DO Sj 1=1, IN 




6 

00 50 0=1, ON 




7 

ZFIHARIX.OI.EO.C) 

GO 

TO 

sc 

B 

XFIHARII.Ol.CC.l) 

60 

TO 

31 

9 

XFIMARIX,01.E0.31 

60 

TO 

32 

10 

IFIHARII,0).CC.31 

GO 

TO 

S3 

11 

XFI*ARIX,0).CC.4) 

CO 

TO 

34 

12 

IFINARIX.OI.CC.SI 

60 

TO 

35 

13 

IFIHARIX,Ol.C0.61 

CO 

TO 

36 

14 

IFINARIZ,01.E0.71 

CO 

TO 

37 

15 

XFIHARIX.OI.LO.S) 

60 

TO 

38 

16 

XFIMARII,01.EC.9) 

CC 

TO 

39 

17 

XFIHAKMl.Ol.EC.lO 

)G0 

TO 

4C 

19 

HXI 1,01= IHXI 141,0 )-HXIX-l,0) 1/12*0X1 


19 HY(l»Ji:(HZ(XfJ«n-NnXtO*lM/l2«OYI 

20 60 TO SO 

21 31 CONTXNU£ 

22 HXtX»Ji=(HX(X«l»J>>HX(l-ltJ>>/l2*0XI 

23 HY(Xf J):(3«HXIZt J)«HX(ltJ*2)'<t*HX(X»J-lll/<:«0YI 

24 60 TO SQ 

25 32 CONTINUE 

26 HX(Z»J)=tHX(X4ltU)-HZ(t»ltJn/(2«0XI 

27 HYI X.JU(4wHI (X * J-*; > -3< NX t X * J )•HX ( X . J «2 ) )/ C«OY) 

2S 60 TO 63 

29 33 CONTINUE 

30 HXIX»J)=(4«HXa«X.J)-3*>HX(X»JI>Hl(X«2«Jn/(2«0X! 

31 HY(l«JI = (HX(X»J<*ll>HXIX,J-in/(2«0YI 

32 GO TO aC 

33 34 CONTINUE 

34 HXIX»JI=(3*HX tXtJ|4NX(X-2,JI>4*HI(X>;tJI)/i:M0XI 

35 HYI I.JUIHXIX«J4 1I-HI(X .0-1)1/12*071 

36 60 TO SC 

37 35 CONTINUE 

3S HXII,Jl=l<t*HXfI<*l,Jl-3«HI(l«Jl-HXIX42.Jl)/l3»0X) 

39 HYI I»J)=l3*HX(XtJl«HI(l.J-21-4.HI II.U-1))/ (2wDY) 

40 60 TO S'] 

41 36 CONTINUE 

42 HXII,0)=IHXIX«1»0I-HII!-1. 0)1/12*0X1 

43 HYIX»0)=IHIIX»0«1)-HXIZ.0-11)/I2*0Y1 

44 60 TO aC. 

45 37 CONTINUE 

46 HXI 1,01= I4*HX {X«l, 0 1 -3*HX IX .0) -HI IX«2.01 1/12*0X1 

47 HYI X,0I=I4«HIIX,J41)-3»HXII,0I-HXIX.0«211/ I2*0Y) 

48 60 TO SO 

49 38 CONTINUE 

50 HXII,0) = Ih:iX«X,j)-HIII-1 .0)1/ 1 2*0X1 

51 hYII,01=IMII 1,04 1) -HI II ,0-1)1/12*071 

52 CO TO SO 

53 39 CONTINUE 

54 HXII,01=II*HI I l,Jl4HIII-2,0)>4*MIi:-l,01)/ 12*0X1 

55 HYI I,0) = I«I*HX II, J4l)-3»HXI X,J)-HXIX,042 1 ) / r>jY) 

56 60 TO SC 


[ 








S7 

90 

CON7INUS 

51 


HX<I,Jls|3*MHX,J|4Hlll-2tJ»-9*HlCX-l.»jn/l2'»0X> 

59 



63 

50 

CON72NUE 

61 


URX7E (91 t(N«R(X»JI»Zsif XNI,Jsl|JN)t 

62 


CI(M9HIXU»JrfltIuri,XWM tJUSltJWMt 

63 


CC(HZIZtJ)tIsi*ZN)t*>:lt»iN)f 

69 


00 60 X:i*XR 

65 


PRXN7 61tX»(HAR(X»JI»J:lf JNI 

66 

61 

FORMAT!/* I=*»I3/,* MARKeR*/ISX|9X3»l , 

67 

60 

COMTZNUC 

68 


DO 62 XWSl.XUN 

69 


PRXMT 63flWt (NRHClUtJWlf JWSlfJWNl 

70 

63 

FORMAT!/* XMS*,X3/»* MIOM ARKER •/ !SX ,8X3 II 

71 

62 

CONTXMUX 

72 


00 70 XslflM 

73 


PRXNT 71,I,!HX!X,J),J=1,JN) 

79 

71 

FORMAT!/* X=*»XI/,* DEPTH*/ !5X,9E19. 711 

75 


PRXMT 72,X,!HX!X, JI,J:lf JNI 

76 

72 

FORMAT!/* IS*»X3/,* XfifiAO */ !6X ,9E19 .7 >» 

77 


PRXNT 73,3,!HV!X,JI,J:i,UNI 

78 

73 

FORMAT!* Is*,X3/,* VGH AD*/ ! SX ,9E19 ,7» 1 

79 

7C 

CONTXNUS 

60 


END 
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9.2.16 HEIGHT 

This program inputs dapth of tha basin into the model. 

This subroutine is for constant depth model. 

HI (I,J) * CC A constant and non-dimensionalized depth "I. Q 
HX (I,J) • 0.0 X derivative 
HY (I,J) * 0.0 y derivative 
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M*0 


C.HCIGHT 
C 


• ICO 

10 
11 


THIS PD06RAH PUIS CONSTANT DEPTH FOR CCsI.q IN THE DATA 
SUBROUTINE HEIGHT (I »J tK tXN» JN fKN |HX »HX tHY tCC I 
OXHENSION HI t IN t*INI tHX UN fUN | ,HY lIN ,UN> 

00 100 IS1,1N 
00 100 JS1,JN 
Nlllt4>}sCC 
NXIl»Ji:C«0 
NYCIvJlsO.O 

CONTINUE . 

RETURN 

END 
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i ! < 

; i I 

9.2.17 HEIGHl 


This subroutln* reads the depths for the near field model 
in the format given. 





•OOCtHCIGHl 

1 C 

2 

3 

« 

5 

6 
7 

e 

9 100 

19 
11 


12 

13 

19 

15 

16 
IT 
18 


2C0 

3 

2 


TN2S 9R06RAH READS DEPTHS FROH THE DATA 

SUBROuTt KE HE16H1 IX .UtK* IN , JN ,KN ,H| ,HX ,HY (CCt JX > 

OIHENSXON HllINtjNItHXIlNfJNlfHVIXNtJNIffxCUNl 

DO 100 ISI.XN 

DO 100 J:lt«IN 

HXIXj^lsCC 

HXtX^JISQ.O 

HVIX,J)Sq.o 

CONTINUE 

DO 200 JJslfJN 

READ 2f JtlHXCXflliXsltXNI 

PRINT 3fitlHXIXtJlfX-l»XNT 

JXfJJlsJ 

CONTINUE 

F0RNATCSX,IS,18F6.2I 

forhatii 

return 

END 


I 
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9.2.18 HITEA 

This subroutine is used by the far field stratified and 
unstratlfled models. The subroutine sets the depth everywhere 
equal to 1 if cc is nonzero, otherwise the depth matrix HI 
is read in from the data element DATAML when the main program 
TMA1N4 or TMAIN4CB is executed. 


I 




H*0JUL(1I«H1TEA 

1 

2 

5 
« 
s 

6 
7 
• 

9 

19 
11 
12 
IS 
1<» 

15 
IS 
IT 
IB 
19 
23 


180 

150 


2S0 

25C 

3 

2 


SUbAOUTiriE HXTEM!(J»K(IN*JN,KN(HI»HX|HYtCC) 

OZMCNSZON HZITNf JNItHX(ZN,UM,HVtZNtJNI 

ZF(CC«LT«C. 30011 CO TO ISO 

DO 130 IffltlN 

00 lOU JSlfJK 

HZtZtOlsCC 

HXIX»J1SC*0 

HVIXf J)S0*3 

CONTINUE • 

60 TO 150 

continue 

00 200 ZZsltZN 

READ 2|ZflHZ(Zt3t»JSl|UN} 

PRINT 3|lflHZ(Z»J>iJsl(JN) 

CONTINUE 

CONTINUE 

F0RMAT(5X»ZStlSF6.2l 

FORMATO 

RETURN 

END 
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9.2.19 INITB 

This procedure is used for initializing the temperature 
field for a far field stratified model. The subroutine sets 
the temperature everywhere equal to the ambient temperature 
profile defined by the matrix AMINT (NTL, NTLV) . The first 
column in this matrix is the depths and the second column are 
the corresponding temperatures. • 


H*OULI.m 

1 

2 

i 

5 

7 

I 

* 

10 

11 

12 

IS 

14 

15 

16 
IT 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 


II«ZT8 

tk Am amaaAaaaaa aa a a a a a a a a a a a a a a a a a a a a AA AAAAAAAAAAA aaaa 

C THIS PROGRAM INITIALIZCS TCHP AMD OCNSITV 

C***W *4 *■****«■*«■**•****«**•**•• •!>«»**»** ****<i¥4***«w***W *■>»#*«** 

SUUKOUTXKC XNireiZfJfK tIN»ONtKNtlRt«lb tlUNfJUNtAtOtCtTtROt 
CMARtHRHi 
CTRSPtRtiePr 

CrOiANlMTiHItNTLiMTLVI 
0ZH;NS:0M rtX^|JMtKNI(ROfIrl(JN,KNI 

OXMCNSXON MAR (IMfOM t fMRH I SUN, JUIt ,AMZHr INTttNTLVI »HX( IN* JN) 

T0D5IT0-T<’Cn/TRfcP 

RSA43*TO»C4T04IO 

ROOSlR-RREn/RKCF 

00 IS ZSltlM 

00 10 OSltJM 

XF IMARI 1,J) .EQ.Ol 60 10 12 
00 11 Krl,KN 

HXK:|K*1I*HI( It JI/(KN«1I 

NTLMSNTL-1 

00 ICO N=1|NTLH 

XF(H!K.GC.AMINT(N»l).AMO.HIK.LT.AMZMTIN«ltin 

CTIltJtKI=AMZNT(M,Z) 

ICO CONTINUE 

XF(HlK.6E.AMZNT(NTLtin 

CT(ltOtK)=AMlNT(NTL,2) 

R0IZ|J|KI=A«8 4TllfitKI«C4T(I«JtKl*42 
TH»«<»KI=(T(ItJiKI>rREFt/TR£F ' 

R0(XtJ,K)=(R0(ItJtK t-RREF)/FREF 

11 CONTINUE 

12 CONTINUE 

10 CONTINUE 

RETURN 

FND 
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9.2.20 INITU 

This program Inltlallzss ths valuss of u,v, w. Wh. D, E 
and PINTK. This program sats u, v, w, E. andwH aqual to 
zaro. PINTH Is sat aqual to i^P. 






Oi 


e.XNlTXA 



e IHXS M06RAN XNXTXALXZeS THE VALUES OF UtV«UHftttO»EtFXNTH 


SUtROUTXNE XNXTlAlIN,JN,NN,ZWN»JVNtVtVfWfUMtO»EfFXNTHtX»*l|KtXHtJW, 
CAAiFi,, 

OXHENSXON UfXNtJN*KN)tVfXNtJNtKNItMIXNtJNtKNItUH<XMNf«|MN»KNlf 
CDtXN|WNfKNIfCIZN»UNtKN|, 

CFXNTHflUAvUVNI , 

C XAXTXAL CONOXnONS ON U AND V 

10 00 100 Xsl.XN 

11 00 ICO JSltJN 

00 lOQ K'ltNN 

UCXtJ»K)se 
VCX,J»K|sO 
UIXtJtKlsO 
0CXtJtKlS0*0 
ECXt*l»K>SC*0 

ICO CONTINUE 

C XNXTXAL CONOZTZONS ON NH AND PH 
00 200 XNsl,XNN 

00 200 JUSltJNN 

FXNTMtjUtjUUARBp 
00 200 KSliKN 
HHtXMtUUtNisO 

200 continue 

RETURN 



END 
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9.2.21 IMITXT 

This program aact initial tamparatura fiald. It aata the 
temperature field to the reference temperature at all 
points . 




I 
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lOOC.tNITXT 


1 



2 

C 

THIS PROGRAM IKITZaLIZcS TCMP ANO CEnSXTY 

S 

C**i 




SUBROUTZKC XNZTXf |X ,J,K,XN,UN,KN,ZU •UW»XWNtJUN,.A tB»C»T*RO, 

s 


CNARfHRMt 

« 


CTREFtiillEF, 

7 


C1N,R0U«70I 

a 


DIMENSION Tf X Nf JN «KN 1 tRO (XN »JN ,KN > tTV (XWN tK*l > |R < XWNt JONtKNI 

9 


DIMENSION NARfZN,JN|,MRH(ZUN,JUNI * 

10 


’too:<to-irefi/tref 

11 


RsA4B>»TO*C«TOi»TO 

12 


ROOscR-RREFI/RREF 

IS 


DO 10 X=ltZN 

la 


DO 10 jSlfJN 

15 


XF tMARf XtJKEQ.OI 60 TO 12 

16 


DO 11 K=1,KN 

17 


T(XtJ«KI=TOO 

18 


RO(ZtjtK>=ROO 

19 

11 

CONTINUE 

20 

12 

CONTINUE 

21 

10 

CONTINUE 

22 


DO 20 XUsltXUN 

23 


DO 20 JNS1,JUN 

29 


XF (MRH(XW»JWI.E0.0> 60 TO 22 

25 


DO 21 KslfKN 

26 


TUlXUtUUvKlsTCO 

27 


ROUIXUfJUtKlsROO 

28 

21 

CONTINUE ■ 

29 

22 

-CONTINUE 

30 

20 

CONTINUE 

31 


RETURN 

32 


END 


ORIGINAL PAGE IS 
OF POOR QUALITY 




iiMrtii'iiMiifriii 
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, 1 

9.2.22 INITM 

This subroutine Is used by the fer field unstratlfled 

k I 

model. Ihls subroutine Is used by the mein program TMA1N4T 
which sets up the temperature field equal to a measured Initial 
value. Ihls subroutine reads In the surface temperature matrix 
stored as data element ITPKl. Temperature below the surface 
are computed by assiunlng a temperature drop of l^C over the 
reference depth, a condition which may be changed If 
desired by making changes In line #21 of this subroutine. 


r 


1 


l 

I 

j 
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i 


*OUUI.m*XNXTM 

3 C THIS F'50C'?AM XMUALI2CS TEMP ANP DtNElTY FOR KORNINC. 

3 C4’********«**«^w*'>'*”*i*'("»*'*‘**W'^*****'*'''**‘***'***'***'^*'^**<‘*‘^***'^'*'***'**"*‘^**^'*'*"^**'' 

^ SUUROU11I.E IMTP tlfJtK |IN t JN|KN|1K ,JU iIWN , JUN,A ,b |C,T,ROt 

5 CHAKyMRHt 

6 '•?' CTRtr»RREF, 

7 CTW«ROW»TC»Hl) 

8 OXneKSION TIINtJNiKNI.RO (iNyJNyKN) ,Tb (I WN y JW N , KN I t ROW ( lUNy JUN, KN t 

9 OXMENSION HAtidKyJNlyMRHdkNyJUNlyHXtlNyJN*) 


ID 


TOOstTO-TRtFI/Tr;.r 

11 


R = A*D^ TO«C*TO*TC 

12 


Roona-RRm/RRrr 

13 


DO 900 IlsiilM 

m 


READ 2|It<Ta9J« l),Orl,JKI 

IS 

9C0 

CONTINUE 

le 

*7 

FORMAT U 

17 


DO 1001 Kr2|KN 

18 


DO luQl JrlvON 

19 


DO 1001 I-I 9 IN 

23 


DPrHIClf J)vrLOAT«l<-ll/FLOATIKN-U 

21 


nX»J»K)::T(I» J, n-DF>»l«3 

22 

ir:oi 

CONTINUE 

23 


DO 1C02 K^lfKN 

24 


00 1002 J*1»JN 

25 


DO lOO: I-liXN 

26 


K 0 ( I» J^K UA«B«T(I 9 JtK)«C>liT(I«UtK )*«2 

27 


T(ItJ»KI=CTil*JtK)-Tr£F)/TRfF 

29 


ROi I, JtK UtROlI t JtK I'-RREF l/RRCF 

29 

1C02 

CONTINUE 

30 

11 

CONTINUE 

31 

12 

CONTINUE 

32 

10 

continue 

33 


00 20 m*-l»IUN 

34 


DO 2D JW=1,JUN 

35 


IF IMRUdWiJVIItnCtC) 60 TO 22 

36 


00 21 KriiKN 

37 


TWCIW, JW|K)rT au,JW«K) 

36 


ROUUW, JW»K)=ROCIU|JW,K) 

39 

21 

CONTINUE 

43 

22 

continue 

41 

2 C 

CONTINUE 

42 


RETURN 

42 


END 





s 
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9.2.23 INITMB 

This subroutine updates the temperature field for a far 
field stratified model from the ambient field to the measured 
temperature field including the thermal plume. The subroutine 
reads in TSMN (the minimum surface temperature) , DFMX (maximum 
depth to which the effect of thermal plume is extended) and 
the surface temperature matrix. Temperatures beloW the sur- 
face are computed by assximing a linear accumulation of plume 
heat from a maximum value at the surface to a zero at DPM, 
Thus : 

Temperature at depth d (<DFMX) ■ Surface Temperature 

Temp - d (Surface temperature - TSMN) 

Temperature at depth d (>DFt'IX) ■ Ambient temperature 
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*OULLUi 

1 

2 

3 

<1 

$ 

6 

7 

ft 

9 

19 

11 

12 

13 

1<( 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2U 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 


IN'XTMO 

C THIS PFJCORAM 1MT1ALI2SS TEMP AND OEKSITV F0« MOrUlWS 

SUSROUTifiE XHITIU<(I»J,KtXN«JN*K*FtXW(Uh«IHH*JkN|A,6 iCfTtROt 
CHAk|MRH« 

CTRtPiRfiEF* 

CTO,HI> 

OlMEl.SlOH T(IH»JH»KNI,RO(XN»JH,KNI 
OIMfNSXON MARIIH* JNl(HRK(Ibf.|JwNI tHKINt )• 

TOO=(TO-Treri/TPEF 
arA*B*TO«C*TO*TO 
R0£)2CR-RR£F)/RREF 
READ 2»TSMNfDPHX 
DO 9U0 II:l»IN 
READ 2>Ii<TatJ»ll*J:l|JNI 
9C0 CONTINUE 
2 FORMAT n 

00 lUOl KS2»KN 
DO li:01 jrifJN 
DO 1001 l:l»IN 

T<l|J|K)7(1.0«TU*J«Kn*TREF 
DP=HIUt J»*FLOATtK-l)/FLO*TIKH-i) 

XF«DP»LT.OPMX» TiItJfK )CT CDPMX-DP )/ DPMX J • i T ( If J» 1) -TSMNl 

1001 CONTINUE 

00 1C32 K=lfKN 
DO 10U2 U=Xf JN 
DO 1002 IslfXK 

R0(I,JtK)=A«B*T(IfJtK)4CvTIIfJfK)4^«>? 

T«If JfKlrlTf IfJfKI-TREFl/TREF 
fiO(IfUtKU(RO<IfJfKI-RR£FI/rRCF 
10U2 CONTINUE 
n CONTINUE 
12 CONTINUE 
10 CONTINUE 
RETURN 
END 
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9.2.24 INLET 

This program Inputs the velocities u and v at plume 
discharge into the model. It defines the inlet v>velocity by 
two constants AA and BB. 

AA and BB are non-dimensionalized numbers. Non dimensionalized 
with respect to discharge velocity. 

I 

Therefore AA *■ 1.0 
BB « 1.0 


4 « 00 C*XNLeT 

1 

2 

3 

« 

5 

6 
7 
S 
9 

1C 

11 lOD 

12 
13 


SUBROUTXKC XNLeT<X,J*K «XK t«IN ,KN,V *6 tAA tBB I 
DXNCBSION 6(XNtuNtKNItV(XN«JNtKN) 

XNMi:XN-l 

JNMISJN*! 

KNMISkN-1 

DO lap KSI.KNMI 

V(9,i«K|sAA 

6l9f IfKlsAA 

V(10|ltN>:B8 

BtlOtltNlsBB 

CONTXNue 

RETURN 

END 


9.2.25 INLETA 


This subroutine reads In the number of Inlet and outlet 
points, u, V and T at Inlet points and u and v at outlet 
points for the far field unstratlfled model. This subroutine 
Is called In by the main programs TMAIN5, TMAIN5T and TMAXfilSV. 
The subroutine reads In data from element INDATA5, the lines 
following the first twelve lines, * 


KtOULLd). INLET* 

1 

2 
3 
It 

S 2 

e .a. 

7 

S 

9 

10 20 

11 
12 
13 
IN 

15 30 

16 
17 


suit ROUT JNf. INLETAtX»JfKtlN|Jt.|KN,U|V,H(CvTI 
DXHENSION H(XN»JNfKt!ttC(lN(JN|KN) tUllt«(JN(KN) 
DXHCNSXON VlXNtUN|KNI,T(XNfJN|KK') 

READ 2tNXNtN0UT 
FORMAT (I 
DO 20 NNSltNXN 

READ 2tXt«l»K|UIXtU(K ltV<X|JtKI tT(XtJfK) 
HIX»JfK):UCt J»K) 

6CXtJtK|sVtX»UtK) , 

COKTXNUE 

DO 3D t,HSX,NOUT 

READ 2|ItJ,K,UCI|UtK},V(lt J|K) 

HfXfJyKIsUtli JtKI 
6IX»JtK)rV(Xt JtKI 
CONTXNU: 

RETURN 

END 




■ ^ OG/? , 


i 
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9.2.26 INLETB 

This tubroutin* Is ussd for rsoding in the Infontuttlon 
at open boundarlas for tha far fiald stratiflad modal. Tha 
subroutlna is the same as INLETA. Tha subroutine reads in tha 
data from alamant DATAML5, tha lines following tha first 13 
lines. The”' subroutine is called in by tha main program TMAIN5B, 
TMAIN5TB and TMA1N5VB. 


^SdMiuaaii 
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M*OULLm»lNLCTB 

1 SUBBOUT:r.e INLETBIIfJ*K»lN»JN»KNiUfVfH(C,T) 

2 DIMENSION HI ZNf JN |KN ) tC ( IN , JN f KN) tU I INt JN i KN ) 

3 DIMENSION VI XNt JN .KN I , TCN i JN fKN I 

* READ 2,N1N,N0UT 

5 . 2 , FORMAT!) 

6 DO 2Q NlirifNIN 

7 READ 2(ZtJ»K,UII»JtKI»VII|J«KltTII,JtK) 

B HIItJtK)7UII(v)»K) , 

9 6II(J(K)SVII,J»K) 

ID iC CONTINUE 

11 DO 3C NH:1,N0UT 

12 READ 2tlf JtK,UII»JtK)»VII,JtKI 

13 HIZtJ»K):illZ,JfK) 

U 6ll»J«K):VIItUtK) 

15 3C CONTINUE 

16 RETURN 

17 END 
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9.2.27 Il^TE 

This subroutlns computes XINT, YINT, DPSX and DPSY. 
This subroutine uses x-momentum equation to compute 



aPs ■ 


W‘ 


DPSX + 




DPXY - 


V 

u 


B. 


By 


I 


I 








! ' 




4*00C.INTE 

1 

i 

3 

4 

5 
« 

? 

f 

10 

11 

12 

IS 

1 « 

15 

16 
IT 
18 

19 

20 
21 
22 
23 
26 

25 

26 
2T 
28 
29 

so 

31 

32 

33 

36 ICCC 

35 

36 
3T 

38 

39 
60 
61 
62 
63 
66 

65 

66 

67 

68 

69 ICIC 

50 

51 

52 

53 
56 

55 

56 


SUOROUlIkC INTC «StJ>NtlNtJNtKN»UtVtH«HX»HX»HVtHARtXINTtVxNTt63 
CtAX»6Ht6VtT6UX»T«UY 
C*0Xt0Vt02tOte»0lt09$X»09SVtA9> 

OXHCNSIOX UIXN»JN»KNI>V(XNt*IN»KNItWfXNtJNfKN>fNAR(XNtJNItNXfXNtJN» 
OXMCNSXON HXflNvJNtfHVIXNtJN) 

OXMCNSXOK ASIKNI 

OXHC^rj^lON XXNT|XM,JN|,YXNT(XN,JN| 

OXNCNSXON 0FSXlXNt*fNlt09SYCXNt«IN> 

OXNCNSXON OcZN,JN,KN|,C(XN,JNtKNI , 

00 2C0 Xsl^XN 
00 200 JSltJN 

XFCNARIltJ»«eO.CI 60 TO 200 
YXNT(XtJi:0»0 
XXNTCX.JirO.O 
00 190 KS1,NN 

CAU OXNeRUCXtJfKtXNtJNtKNtUtViHXfOXtOYtOlHUUXtOlNUVXtHAR) 

CALL OUVYCXtJtK»ZNt«IN,KN«U(V,HX»OY,OlHUVY,HARI 
CALL OVV YfX««l»K tXN.JN ,KN »UtY,HX »0Yt01HVVY tHARI 
CALL OVXSUCX f J»K tXN tJN »KN ,U ,V,HJ,OX tOY tOlUX t02UX tOlUY t02UY( MARI 
CALL 0VXSVtX»J,K,XN,JN,KN,UtV»HX,0X,0Yt01VX t02VXt01VY»02VY»HARI 
CALL 012ZfXtJ«K»lNiJNfKN»U(V»HfHX»HX»HY(0Xt0Y,02 ,01UU2tASt 
CTAUX(TAUY«01VW2»01U7»02U2(0lV2fD2V2t01A32l 
IF (N*eO*ll 60 TO 1000 
XF (K.eo«KN) 60 TO 1010 
XSUMS(Ax9IOlHUUX401HUVY«Hmt*ll90lUH2l 
6*AH«fD2UX*HXtI»U)«02UY*Hia,JII 
C-AH*|01UX*MXII,JI«01UY*HYtXt*»l 
C*AV*ll.0/HIIXtJI>'*tA3(Kl<»D2U2*01A3Z*0lUZn*02 
YSUH:(AZ*l01HUVX4DlHVVY«Hr(It«|)*DlVW2l 
C*AH*C02VX6HXtZ,JM02VY«Hia,J|} 

C*AH*l01vX*Hx(ltJl«01VY*HY(ZtJ}> 
C*AV*(1.0/HIIIfin*CA3(Kl*02YZ4DlA326Dlv2ll*0z 
60 TO IICO 
CONTINUE 

XSUN=|AI*(01HUUX401HUVY4HI(XtJl*OlUW21 

C*AH*(D2uX<*HZ(ZtJl«02UY*HIfI,Jn 

C*AN*(01UX4HXIXfl>401UY*HYfltjn 

C-A V* (1.0/HX IX •J}1*IA3(K I *D2UZ401A32«D1UZ1 1*02/2.0 
YSUN=IA1*(01HUVX4D1HVVY4HI|X,U)*01VUZI 
C*AN*(02VX*HI(ItJI«02VY*HI(ltJll 
C-AH*f0lVX*HXIXtJ|401VY*HYIXtJII 

C-AV*(1.0/HXCX ,J}l*|A3lKl*02VZ40lA3Z*OlVZn*DZ/2.0 
OlUT^tudf JtK l-CtZfJfK ll/DT 
OIVTSCVI XfJtK 1-EIXtJtK ll/OT 
0=2.0/02 

0PSX(ZtJl=(t*/AF}*|l./HX(ItJll*l-XSUH*Q-HXlX.Jl*01UTI 
0FSYtZ»J}=ll./API*(l./Hl(Iflll*l*YSUi1*Q*HXIX(J|*0lVTl 
60 TO 1100 
CCNTXNUE 

XSUM=(AZ*f01HUUX401HUVY4HI(l,JI*OlUUZl 
C-AN*C02UX*HXCI.J|402UY«HXfI ,J1I 
C*AH*f01UX*HX(ItJl401UV*HV(XtJII 

C<-AV*I1.0/HXII «J11*IA3(K1*02UZ401A3Z*D1UZI)*dZ/2*0 
YSUM=(A1«<01HUVX401HVVY4HI(I.UI*01VWZ) 

C-AN*(02VX*HX(I,U)4d 2VY»HIII tJll 
C<<X(l*l01VX«HXCl»J|40lVY*HYlXtJII 


ORIGINAL PAGE fs 






rXiiXiltiifliiiiMiAflr 




ST 

St 

HOC 

C«AV*IUO/HSnt*ll>*(«3IKM02«Z«01ASZ«0tV2H*D2/2«C 

CONTINUE 

Sf 

to 

tl 

itc 

XtNT|S,J|sXSUK«XXNT(X|JI 

YlNTlXtJlsVSUMYXNlIXtJI 

CONTINUE 

t2 

200 

CONTINUE 

ts 

tt 


RETURN 
END f 
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9.2.28 INTEB 

This subroutine is used by the far field stratified model. 
This subroutine is similar to the subroutine INTE with the diff 
erence that it calls the subroutine VERTDF which computes the 
vertical viscosity and its derivative for every grid point. 




I'? 


9 


:H4iOJii(i).XNTeB 


1 

2 

3 

4 

...5 

& 

7 

6 

9 

IS 

n 

12 

13 

14 

15 
15 

17 

18 

19 

20 
21 
22 

23 

24 

25 
2S 

27 

28 
. 29 

30 

31 

32 

33 

34 

35 

36 

37 
36 
39 

- 40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 
35 
56 


SUBROUTII.*; INTCEICi Jt<iIN*Jr««KNtU»V»WtHItHX»hYtMArtXINT»VlNT,A3 
CtAI,AH,AV«1AUX« TAUV 

C*DX,CYt02t0»C ,0T,Df>5XfrPSY,AP,T»TrCF,C0KS,AVKX,AVHM) 

OIl'.ENSlOt, UIIK, JNtHK'lt V( lt«iJN,KN),K IINtJN,KK>|MAK(IN, JN),HZ(XN«JNI 
OlHENSIOtv HX(1N,JM ,HV ( IN | Jt4 1 , T ( I N, JK ,KN ) 

DIMENSZOK A3(KN) 

DIMENSION XINTtlNfJNI, YINT(IN,JM 
DIMENSION CPSX(IK|JN)fOPSY(IN»JN) 

DIMENSION DIINtJN,KK),i.(IN,JNtKN) , 

DO 2CS l7l|IN 
DO 23: J:l,JN 

IF(MAn(I,J)*EC.CI CO TO 2CC 
YINT(I»JUJ*D 
XXNTlIiJItj.O 
DO 19S K:1,KN 

CALL DINtrut I, J,K|IN|JNtKN*UtV*HIt0X«CY|01hUUX,01HUVX,HAR} 

CALL OUVY(l,JtKtI^iJN,KN |U,V,HI»DY,01HUVY,MAn) 

CALL OVVY(I,J,K,:N,JNtKN‘,UtV«HI,DY t01HVVY*MANI 

CALL DVISUtl, JtX» ZS,JN|KN,UtV,HI,DX,DY»01UX,02UX,DlUY,D.?UY,MA4) 
CALL 0V1SV(I,J*K|IN,JN ,KN tU «V ,H I , DX »DY, D1 VX ,0:VX , C 1 VY • 0 2 V Y« MARI 
CALL D12Z(I» J fK,IN,JN,KN rU (V tW tHl ,MX »HV ^DX ,DY |02 ,C1UUZ, A3» 
CTAUXtTAUY»DlVWZ«LlU2«n2UZ»ClVZ»C2V2.DlA3Z) 

CALL VERTCF-tl •J|K,1N,JN,KN ,HI , AB3 1 01 A 32 |0 1B3Z lOZ , T , A3 , TRE F 
C|CONS,AVKX,AVMN> 

A3(K}=Aa3 

IF (K.cQ.l) 60 TO ICOQ 

IF IK.EO.KNI GO TO ICIC 

XSUM=t AI*(D1HUUX4 01HUVY*HI <If JloOlUWZ ) 

C-Ah*(02UX»HliI,J)«[>2UY<(MI Cl ,JI) 

C«AH* CD lU X»HX ( I , J) «C1UY I'M Y ( 1 y J 1 1 
C>AV«( 1.0/HKI ,JI l«C A3(K l«02UZ-*DlA3Z*ClUZn»0Z 
YSUK=IAI«ID1HUVX«D:HVVY-»HI (IyJ)*DlVWZ I 
C-AH*tOZVX«Hl( :,JM02VY«H1 (1,JI) 

C-AH*(01VX>^HXl!,JMC!lVY'*HYCI,jn 
C-AV*C 1.2/HllI ,J) )*( A3(K )»D2VZ«DlA32«OlVZn>»OZ 
GO TO IICC 
1000 CONTINUE 

XSUH:|AI»(01HIIUX4D1HUVY«HI CI«JI«01UUZ ) 

C-AH*(D2UX»HI I I, JMOSUYvHl <1*J)) 

C-AM* I D lU XuMX ( I f J I 40 lUY vH Y I : t J n 

c-Av*ci.r./Hici yj) >*(AHK j*D:u24DiA3r*oiuzrr»nz/2.c 

YSUM=CAI»C01HUVX4riHVVY4Hl tlyj)*0ivw2 ) 

C-AH*I02VX*HI( I, J)4D:VY-»MIClyJll 
C>AK«CDlVX4HX(IyJ)401VYwHYClyjn 

C-AV*I l.C/HICl yjnw(A3(K )<p 0ZVZ401A??4D1VZ> IwOZ/Z.C 
OIUTZCUC ly.iyK )-D(IyJ|K n/DT 
OlVTZCVCIyJyK l-ECIyJyK n/DT 
0:2.0/0Z 

OPSXCIyJ»=C;./AF)*C l./HI (I yJ))*C-XSUM*0-Hl Cl yJI^DlUTI 
0PSYIIyJ):(l./Ar J»C l./HIlIyjn4C-YSU!i*C-Hl II y J-l^ClVT) 

CO TO iicr 
1010 CONTlNUw 

XSu:i:CAI<'CLlHUUX4DJfUIVY4HI ClyJlwUlUWI » 

C-Ah»IC2UX*HI ( ly J ) 4D2UVvHHl,Jn 
C-Am«ID 1I.'X*‘KX< IyJ)40UiVvHY(l,JII 

C-AV*C i.O/HlCI yJI »♦{ A3(K )4D2UZ4DU3Z*D1UZ» 14DZ/2.0 


57 


YSUK:(AX*l01HUVX4CllHVVY«HZIXtJl4>01VW2l 

SB 


C-*H*(02VX*HI I X t J M02VY*HX (X t«n 1 

59 


CoAH*<0iyX*HX(Xf JHC1VYWHY(Z|JI1 

63 


C-AVwd.C/HKItJ) )<MA3(K)*02V2«D1A3Z*D1VZII<»0Z/2 

61 


COftTXNUc 

67 

XXNT(X(JI=XSU»<«X1NT<X«J) 

63 


YXNT(XtJI=YSUK«YIta(XtJ} 

6<l 

190 

COriTXNUC 

65 

200 

CONTINUE t 

66 


RETURN 

67 


END 
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9.2.29 INTEMF 

This program Inputs discharge temperature into the model 
at plume discharge. 

ILL and TMM are non .dimens ionalized temperatures. Non dimen- 

sionalized with respect to reference temperature as shoHn below 

TLL - TMM - T-Tref 
Tref 



I 

SUeROUTZ Ne iHH kR H tU tK • ZN« JN tKN t T i TO tUL tTHNI 
OINENSZON nZNtJNtKNItTOlINfJNtKNI 
ZNMlsZN*! 

JhNi:jN-t 
KNMISNN-1 
DO ICO K:1,KN 

TDI9tltNlsTU 
IUOiIiKIsThM 
TOClOtttNISZMI* 

CONtlNUC 
RETURN 
run 

[ 


I 

I 


I i«» 
I 




9.2.30 OLDT 

This program sets the values of temperature field at 
time step n equal to the temperature field at(n + 1) after all 
computations for time step n are completed. 




lOC.OLOT 


SUBROUTX NC OLDT (1 tJ tN tXN tUN ,KN ,T ,TP 1 
OXMCNSXOK TfXKtjNtKN»«Tp(XN»JNfKN) 

DO 10 XslfZN 
00 10 JSlfJN 
DO 10 K'ltKN 
TPtXfifNlsKXtJtK) 

CONTINUE 

RETURN 

END 


1C 
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9.2.31 OLDUV 

This program sets the values of D and E equal to U and V 
respectively In order to retain values of U and V at one 
time step lag, 


I 
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OOC •OLOUV 

1 c************************************************************************** 

2 C THIS PR06RAM SETS THE VALUES OF 0 AND C COUAL TO U AND V RESFECTIVELV 

SC XN ORDER TO RETAIN VALUES OF U aNq V AT ONE TinC STEP LA6 

N C**************************************************************************! 

5 SUBROUTIlE OLDUVII»J»K»IN|JN»KNtU»VtDtE| 

* DIMENSION UIXNtJNtKN)(V(XN,JNtKNItO(lNtUNtKNI»Cf INtJNvNNI 

7 DO SS4 K:1,KN 

• DO S31 XSltXN 

9 DO 831 jSltJN 

DfXtUtKISUlItJtKI • 

ElI,JtK|SV|XtJ,KI 
•3S CONTINUE 
RETURN 
END 


i 

1 

'] 
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9.2.32 OUTEMP 

This subroutlnt s«t« the boundary condltlona for tan^aratura 
at tha outlata. It aata naar flald outlat tamparaturaa aqual 
to tboaa at tha adjacant grid. 

^IN-1 " ^IN 
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lOCaOUTCMP 

SUtROUTXNC OUTCCpIXtJtKvXNtJNtKNfTOI 
OIMCNSXON TOIXNtJNfKNI 
XMl:XN*l 
JNHlSJN-1 
RNNISKN-X 
DO 2C0 KSltKNKl 
00 2dtf JSltJN 
1DClt«<tKlsT0f2»J,KI 
20C CONTXNUe 

00 300 K:1,KNK1 
00 30 ;; 

TO(XNtJtKt:TO(XKHl*JtK> 

300 CONTXNUe 

00 OCO Kxl,KNHl 
00 000 XS2,XNI11 
Toll»JNtK>-XOCX »JNNltK} 

HOC CONTXNUE 
RETURN 
ENO 


28A 


9.2.33 OUTVEL 


This program sats the boundary conditions at the outlets 
for velocity. In other words, it sats near field outlet 
velocities eqiial to those at the adjacent grid for U and V 
at the boundaries where there is no current. This implies 
that gradients normal to open boundary are equal to zero. 


Eg: U 


IN-1 
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i 


j 


40C.0UTVCI. 

1 

2 

I 

% 

f 

* 

T 

f 

10 260 

It 

12 

IS 

1 « 

IS see 

IS 

17 

IS 

19 

20 SCO 

21 
22 


suiseun KC OUTVCL IS t*l tK t IN t *m »NN tN t f I 

DSniNSSes HISN,«IN^N|,CISN»JMtKNI 

SSHISIN-I 

•INMIUN*! 

NNMlSKIfl 
00 200 NS1,NNM| 

00 2M *lsl»JN 

Hflt«ltNl:Nl 2 t«liKI 

•tlt<ltK|sS|2,J,K| 

COsTINUC 

00 SOO NSltSiiMl 

00 300 JsifJN 

HllNt*l»Kl:H(XKNlt*l*K| 

SfXNtJtNI^OCXNHltatKI 

C0N11NUC 

00 SOO KS|»KNM1 

00 SOO XS2*XNM1 

MIX,UNtKl*HlXt*ISHltKl 

SCltJNtKISSIXtJNMltKI 

CONTINUE 

RC1USN 

END 






4 

i 




-C a* 


9.2.34 PDPSSOr 


This program prints aps «nd apt at main grid points. 

da 30 


SlttROUTXNe POPSXVIX ,OPSX,OPSV» 

OXMEMSION DPSXl XN ,JN I ,OP SVtlN tUN ) 

DO 10 Xsl,XN 

PRINT ltXt(OPSX|X,Jl,Jsl,JNI 
PRINT 2t(0PSYIXtJltJ=ltUNt 
FORH^It/* IS«,X3/* CPSX*/ISX«8£1S.7II 
FORHATl* 0PSY*/l5X,8E15.7n 

continue 

RETURN 
END 

r 


r 


r 
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9.2.35 POTUV 

Thtf program ploti surfaco valoctttaa for tha naar fiald 


!i 




I 


i 

4 


! 




I I'l 
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I 

I 


[ 

r 

i 

i 

i 

i: 

i; 

i: 


r. 

!; 



[ 

[ 


•OOCtPOTUV 

1 c 

2 
S 

« 

5 

* 

T 

to 
1 
2 
S 
% 

s « 

7 

• 

19 S 

20 
21 
22 
23 

29 6 

25 

26 

27 1 

28 
29 
19 

1 
2 
3 
9 

5 

6 

7 

8 
9 
0 
1 
2 
3 
9 

5 

6 

7 

8 
\9 

50 

51 

52 

53 
59 

55 

56 


35 

3C 

20 


95 


9L0TS U AND V ON CONSTANT 0C9TN SECTIONS 
9ANANCTER XN:i8t«iN:21,|UNsiT»JUN:2C (KNsS tKNNls9 
OIHCNSZON U(ZN,JNtKNItVflN(JNtNNItOaNtJN(NN}tE(INtJNtKNIt 
CUHIXWNtJWNtKNItNnNtJNtKNItVRIZN«JNtNNItNRHaNN»JUN»KNI( 
CHIIIN»JNI(HXIlN»JNItHVaN«ONItMARfINtON>tMRHlZWNtONN> 

DIMENSION TWIIWNt*lUN«KNItROaN,JNtKNI»PZNTHIZWNt«(WN}tROUXZUN(JUNt 
CKNI,TCIN,JNtKNI 
DIMEN'ltON ZBUrilOOOl 
READ li IRON 

READ ItU SCALE tV SCALE • 

. ARHXNS0.09' 

ARMAXSO.IS 

IMXRUN. EO.OI 60 TO 9 
XFIIRUN. EOtll 60 TO 5 

CALL READl(UtVtUH«PXNTH»XtOtKtXM»UW»XNr«INtKNt 
CXNNfJUNfO(EtHX«HYtHXtNAR»NRHtAX»ANtAVtAPtOXt 
COVtOZtOTtTAUXtYAUYtHtURtURHtTTOT) 

60 TO 6 

CALL REA02IUtVtNHtPZNTH»Xt«l»KtXNfJVtXNtJNtXN| 
CXHNtJUNtOtEtHXtHYtHX«MAR»MRH«AXtAHtAVtAPtOXt 
C0Yt02t0TtTAUXtTAUY«lltWR>WRH«TAZtTAHtTAV»AKTt 
CCB|CV,AtB(C(EULtT«TH«ROtROU»TEtRREF tTRr.F>TO» 

CTAMBtTTOT) 

CONTINUE 

CALL PLOTS(XBUF»lCOOtlll 
CALL FACT0RI0.2S) 

FORMAT n 
DO SO K:1»KN 
XFCK.6T.il 60 TO 20 
DO 30 ZslflN 
DO 30 Jsl.JN 

XF IMARf XtJl.EQ.OI 60 TO 35 
AX:iZ-ll*S.O 


A«ISCU-1I«1.0 

AAi:AZ«UCXtJtKMUSCALE 

AAJSAJ«VIXtJtKMVSCALE 

YN:0.2*SQRTC ( AAI-AX l<**2« CAA J>AJ.1*<»2 1 

YWSAMAXl(ARMIN/0.25tAMINltYWtARMAX/C.2Sll 

CALL AR0H0CAX.AJ»AAXtAA«l,YW»0.0tl2l 

CONTINUE 

CONTINUE 

60 TO ICC 

CONTINUE 

DEPTH:! 1.0/KNHl )*CK-1I 
DO 9C l:ltXN 
DO 40 j:lfJN 

IFCHIfZtUl.CT.OEPTHI 60 TO 95 

60 TO 50 

CONTINUE 

002rHI(ZtU)/KNHX 
LOinOEPTH/HZ (I »UII4KNM1 
XFCLOl.EO.O) 60 TO 55 
L02:L01«1 
L03:LD1«2 

0IFF:(0EPTH>L01»0DZI 

COEFFS OF SECOND DEGREE FIT 










S7 


UlsUIXt.!tL01l 

U 


U2:UIX(Jtt02> 

S9 


U3:UIX(JfL03> 

*0 


VlsviXtJfLOl) 



V2sVfXtU»L02l 

62 


V3SVCXt*ttL03» 

63 


AUs(t|.%r2»U2«Uliy(2«00Z*O02t 

66 


BUS(9*U2 -39U1-U3 1 /f 2*002 I 

6$ 


CUSUI 

66 


AV:IV3*2*V2«V 11/ 12*002*0021 

67 


* 8«sf9*V2*3*Vl-V3}/l2*002) 

68 


CVSVl 

69 


A2S002«D IFF 

70 


U0EFTHSAU*A2*A2*BU*A2«CU 

71 


V0eP1N:AV*A2*A2«BV*A2«CV 

72 


80 TO 60 

73 

55 

CONTINUE 

79 


AZSOCFTH 

75 


AU:lUIXtJ»3>*2*UIXiUr2l«UtXt«l»l 11/12*002*002} 

76 


BUs(9*U(X>Jt2t-3*U(XtJtll-U«Xfif3ll/(2*00ZI 

77 


cusu<x»«f»ii 

78 


U0EPTHSAU*A2*A2«BU*A2«CU 

79 


A VS{V(ZtU»3}-2*V(X»Jt2l*Va fit 11 1/12*002*0021 

80 


6Vsi9*VI2tJt21-3*VIXtJtll'‘VIZtUt311/l2*0021 

81 


CVSVIItUtll 

82 


V0EPTH:AV*AZ*AZ4BV*A24CV 

83 

60 

CONTINUE 

89 


AXS<X-1I*X.0 

85 


AJS1U-1I*1*0 

86 


AAZ=AZ«UOEPTH«USCALE 

87 


AAJ=AJ«VOEPTH*VSCALE 

88 


YUS0.2*SQRTI 1 AAX-AX1**24 lAA J-AJ1**2 1 

89 


YUsAHAXl(ARHIN/C.2StAMINl(YU,ARHAX/0.2Sli 

90 


CALL ARONO(AX»AatAAI»AAJ»YUtC.O«121 

91 

SO 

CONTINUE 

92 

90 

CONTINUE 

93 

100 

CONTINUE 

99 


AS»2*USCALE 

95 


BS16.0 

96 


CSB*A 

97 


CALL PL0T1B«0.0(31 

98 


CALL PLOT(CtO.Ot21 

99 


CALL PLOTICr»C*2t21 

100 


CALL PL0T13«-0.2t2) 

101 


CALL PL0TtB»0.0t21 

102 


CALL PL<mS0.0tC.0f-31 

1C3 

10 

CONTINUE 

109 


ENO 






9.2.36 POTim 

This program plots tha vortical aoctlon volocltioa per- 
pendicular to the diacharge for the near-field. 
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*DOC«POTUU 

1 

2 
3 
« 

5 

6 

7 

8 
9 

10 

11 8 
12 
13 
18 

15 S 

16 

17 

18 

19 

20 6 
21 

22 

23 

28 

25 

26 1 

27 

28 

29 

30 

31 

32 

33 

38 

35 

36 

37 
36 

39 
80 
81 
82 
83 
88 

85 

86 

87 

88 
89 
S3 

51 

52 

53 
58 

55 

56 


IS 

20 

C 


33 


PARAMCISR 2Nsl8tJN:21fKNSStXWNSl7t*IWNS20tKNNU8 
OXHEMSION UfXN»J8«KN)tVIXNtJN,KNItOtXN,JNtKNI«EIXNt*<NtKNlt 
CHMIXMN»JWN,KNl,li(XN |JN ,KN I ,WR I XN, JN tKN) ,U RH( XUNtJVNtKNI t 
CHXIXNt*tN}«HXIXNt«tNI(HV(XNtJNI,HARIX6t«>N}(MRN(XUN»JWNl 
OXMENSXON TU(XWNtJUN|KN)fR0<XNtJNtKNItPXN7H(XUNt«IUNItR0U(XUNt JHNt 
CKNl,7IXN,JNtKN» 

0XMEN810N XBUPIlOOOl 
READ 1| IRON 
XPtXRUN.EO.OI 60 70 8 

XMXRUN.EQ.il 60 TO 5 ' 

.CALL RCA01(UtVtUH,PXNTH»XtJtK,XU«JU,IN,JNtKNt 
CXNNtJUNtOtCtHX,HYtHX tHAR|MRHtAX(AH»AV«APtOXt 
COY|DZ«OTt7AUXtYAUVtNtUR«WRHtTTOTl 
60 70 6 

CALL REA02tU»VtWH.PXNTH»X«J«K,XW,JU»XN,JN.KNt 
CXWNtJUN,OtCtHX»HYtHX«MARfHRN(AItAHtAV«AP(DX» 
COYtOZfOT|TAUXt7AUYtNtURtWRHtTA2fTAH«TAVtAK7tCBtCUt 
CAtB»CteUL«TtTV(R0«R0U,TEtRREFt7REF,10t 
CTAMBfTTOTl 
CONTINUE 

CALL PLOTSdBUFflOOOtlll 

CALL FACT0R(0.25I 

READ 1( USCALEtYSCALEiVSCALEiHBYL 

ARMXN=0.C8 

ARHAXS0.15 

FORMAT II 

DO 10 Xsl,XN 

DO 20 JsltJN 

XF IMARIXtJI.LT. 1X1 60 TO .20 

AJs|J«ll*1.0 

DO IS NsltKNMl 

AK:-IK«>ll*HX(ItJl 

AAJ=AJ«VIXfJtKI<»V SCALE 

AAK=AK>WIXtJtKI*USCALE*HBVL 

YNS0.2*SORTIC AAJ-AJI**2«IAAK-AKI**2I 

YWsAMAXl(ARMXM/C.2StAHSNlfYU(ARMAX/0.2SII 

CALL AROHOlAJtAKfAAJtAAK tYWtO.OtlZl 

CONTXNUE 

CONTXNUE 

DRAWS BOTTOM SURFACE 
NN:0 

00 30 JsltJN 

XF IMARIXtJl.EQ.OI 60 TO 32 
N8SNN«1 

XF INN.6T.il 60 TO 33 

AAJS|J-1I*1.0 

AAKs;rHXIXtJI*KNMl 

CALL PL0TCAAJ»0.0t3l 

CALL PLOTlAAJtAAKtZI 

60 TO 32 

CONTXNUE 

AAJ=1J-1I«1.0 

AAK=-HSI XtJI^KNHl 

CALL PL0TIAAJtAAKt2l 

JD=J 

AJ0=IJ0>1I*X.C 


S7 

32 

CONTINUE 

St 

30 

CONtXNUe 

St 


CALL PL0TIAJ0t0«0t3l 

to 


AAKS*HXIXtJDI*KNMl 

tl 


CALL PL0TIAJ0tAAK(2l 

t2 


AS0»2*USCALC 

S3 


tsit.O 

tt 


C:B«A»’ 

ts 


CALL PLO1IBt0*0f3> 

tt 


CALL PL0TIC»0.0t2) 

47 


CALL PL0TCCt-0«2t2l 

tt 


CALL PLOTIBfC.2t2) 

tt 


CALL PL0TIBf0.0(2l 

70 


CALL PLOTI30.0t0.0t-3) 

71 

1C 

CONTINUE 

72 


END 
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9.2.37 POTVW 

This program plots the vertical section velocities along 
canal centerline for near*fleld. 
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l<»OOC«POTVb 
1 C 


PLOTS VCLOCXTXeS XN J SCCTXONS 
PARAMETCfi XN:18»JNS21»XyN:X7tJWMS2C,KN:StKNNlsA 
OXNCNSXOK UIXN,JN«KN>*VIXNtJNtKN>»DtXN.JN|KNltef INtJNtKNIt 
CyNCXMNtJUNtKNItPXNTHfXkNfJUNI 

OXNENSXOK HXIINt*IN»tHVIXN»JN)tHXIXNtJN)»MARIXNtJNItMRH(XUN»JUNlt 
CMCXN«JN|KNItURIXN»JNtKM>tURHIINtJNtKN) 

OXMENfiSOK TCXN(JNtKNItRO(XNt«INtKN)|TUIXUNtJUN» 
CKNItRO'WCIVNtJNNvKNI 
OXNENSXON XBUPI 10001 

READ It IRON ‘ 

’XFIXRUN.EC.Ol 60 TO A 
XFCXRUN.EOtll 60 TO 5 

CALL REAOlCUtVfbHfFXNTHtXfltKtXWtJH iXNfJNfKNt 
CXUNtJWNtOfEtHXtHYfHXtMARtMRNtAXtAHtAVtAPtDX » 
COVtOZtOTtTAUXtTAUVtUtURtWRHtTTOTl 
60 TO 6 

CALL REA02 CU t Vt WH tPXNTH ,X tJ tX tXU t JW tXN , JN «K N « 
CXUNtUUNtOtEtHXfHVtHZ tHARtPRH|AXfAHt«VtAPfOX $ 
COVfOZrOTtTAUXtTAUYtUtWRtURHtTAXtTAH ,TAV tAKT »CB tCU , 

CA tBtCtEULtTtTWtPOtROUtTE tPREFtTREFtTOt 
CTAHBfTTOT) 

CONTXNUE 

CALL PLOTSaBUFtlCOOtlll 

CALL FACTORCOtZSl 

READ It USCALEtVSCALEtUSCILEtHBYL 

ARMXNsOtOA 

ARHAXSOtlS 

FORMAT C> 

00 10 JSltJN 
DO 20 X=ltXN 

XF CMARf XtJl*LT.ll) 60 TO 20 
AXS(X-11«1.0 
00 30 KSltKNHl 
AKS-IK*l>«HZCIfl> 

AAX=Al«UCXtJtKMUSCALE 

WlXtltKCO.O 

AAK=AK-W(Xt«ltKl«WSCALE*HBYL 
YU:0.2*SQRTC( AAI-AI )**2«CAAK-AK1**2 1 
YUSANAXl tARMXN/C*25 tAMlNl tYU tARNAX/0.2S > ? 

CALL ARONOC AX tAK t AAX t AAK tYM t0»0tlZ) 

CONTINUE 

CONTINUE 

ORAHS BOTTOM SURFACE 
NNSO 

00 35 XsltXN 

XFTHARIX'tJl.EO.O) 60 TO AO 
NN:NN«1 

XF CNN.6T.il 60 TO 33 
AAX:|I-11*1.0 
CALL PL0TIAAXt0.0t31 
AAKS-HXCXtJlAKNHl 
CALL PLOTCAAXtAAKtZI 
60 TO AO 
CONTXNUE 
AAX:1Z-11*1.0 
AAK=*HXC ItJI*KNHl 






CAU PL01IAAX»A«Kt2l 

lost 

AX0S(20-1I*1*0 

CONTXNUe 

CONTXNUe 

CALL ALOIIAXDvO.OfSI 

AAK:-M'iilXf«ll*KNei 

CALL PL0TIAX0»AAKf2l 

AS.ZmCALC 

•SXA.O 

c;»«A 

CALL PLOTIBtO.OtSI 
CALL PL01IC*0.0»2I 
CALL PLOTICt*«2»2> 

CALL PLOTCBt-*2t2l 
CALL PLOTIBtO.Qt2l 
CALL PLOTISO.OtC*Ot-3l 
CONTXNUE 
END 



mmmmiiit 111011k 
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9.2.38 PRPARA 

This tubroutlnt prints vsluss computsd sftsr ons tir.c 
stsp. Qusntltlss prlntsd srs AI, AH, AV, AP, DX, DY, DZ, 
DT, DL2, MAXIT. EPS. OMEGA. ARBP. TAUX. TAUY and TTOT. 




)Oe.PRPM* 


SUtROUlIkC PRPARAUI(AH«AVtAPtDXtOVtOZtOTfOl2tMAXXTtCPS» 
COMCtAfAXtPf TAUX vTAUVf TTO T »N AR .HUH ,XN,JN ,XUN , JVNI 
OXNENSION HAMX»<t*iN»tNRHlXWM,JUNl 
PRXN1 !• AXtAH,AVtAftOX»OV»DZ»OT,OL2»NAXXT,CPStOMetAt 
CARlRflAUXfTAuVtlTOT 

I FOXMAXi (/• AXsSeXI«7»/* AH:*»ElS.7t/« AvS*tEXi«7t/* APs«tClS«7, 
C/« OXS«tElS.7f/« 0Ys*,ElS»7t/* 0Z:*teiS*7t/* 0Ts*tElS«7t/« DLZS*t 
eeiS*7»/« NAXX7s*tXS,/t EPSs«»ElS.7,/* 0HE6A:«»EXS*7»/* ARIPsS 
.CE>S*^t/* 7AUXS*,Eli*7|/« TAuYS*tElS.7f/« YTOIs* .EIS*7/| 
OCAOO*lS|t*IN 

PRXn 7 700tlNAMX»JJIfXS|,XNI 
«00 CONYXNUE 

OOAOOJXSlyJMN 
JJUS*iVN« 1-JU 

PR.tN7 AOQt IhRHI XUiJJVI tXwSl tXwNI 
AeO C0M7XNUE 

7C0 PORMAYC/f* mar • tf 3X(2«X St/M 

•00 FORHATl/t* HRH •tC3Xf2IXS,/|| 

RE7URN 

ENO 
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9.2.39 PREl 

Thif program computoa proitura for far flald from Polaaon 
aquation. An itaratlva achama la amployad. Valuaa ara conq^utad 
at half grid polnta. 


/ 
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I 


H*0UI.Un»peEl 

1 

2 
3 

S 

» a. 

9 


10 


11 


12 


IS 


1« 


IS 


•16 


17 


18 


19 


23 


21 


22 


23 


24 


25 

11 

26 


27 


28 


29 

12 

33 


31 


32 


33 

13 

34 


35 


. 36 


37 

14 

39 


39 


43 


41 

IS 

42 


’43 


44 

16 

45 


46 


47 


43 

17 

49 


S3 


51 


52 

18 

S3 


54 


55 


56 

19 


$U«l<(0UTINr PRCltEP5fHAXXT»lN»JN»PttTNtDP^X»OPSYtrHtOI>2tOMES*i 
CMRHtlf JtKtXUt JUtDXfDYtlXtXWNtJKN»«R9P| 

OXHESSXON P(IWNtJWYI,PHfIWN,JUN>tOPSX(IN»JKI (OPSYdNfJNI 

OIKEKSXON HAHtlWNiJWNt 

X1NS0 

EXSO.O 

ITN7XTN«1 

00 X3 XUOSliXUN 

00 10 JWsXtJUN I 

IKSIXWN«1I-XW0 

X:XU 

J:JU 


IF 

CMRHdWiJUI.EQiCI 

GO 

TO 

57 

IF 

(HRH(ZWtJbl*EQ.l) 

60 

TO 

11 

IF 

(MRH(IU»Jk)iEU.2l 

60 

TO 

12 

IF 

(MRHdWiJUI.rUtSI 

60 

TO 

13 

IF 

IHRHdW|JWI.EQ.4l 

60 

TO 

14 

IF 

IMRHdUiJUI.Eti.SI 

60 

TO 

18 

IF 

IMRHdU»JWI.E0.6i 

60 

TO 

16 

IF 

CMRHt lW|JNI.E0t7l 

60 

TO 

17 

IF 

(MRHdW»JUI.EC.3l 

GO 

TO 

13 

IF 

(HRHdWtJUItEOtlCi 

1 UO 

TO 

19 


PN:.25«(P(IU-l»jy )«P(Ih«l I JUt-*Pf XUf JU*l}«PflWfJW«li-0L2*FHtIUf JW)> 

60 TO 53 

CONTINUE 

PNs.»25*(Pau*l,JU)«P(IU«l tJKHP(IW,JN-tl«P<XUtJW>4(DPSYIZfJ«X> 
C«DPSY(I« ItJ«n>*UY/2.-0L2>*FHIlU»UWII 
60 TO SC 

CONTINUE m. 

PN=.25*(P(IW-l,Jk)'»Pab*l»JW)'»P (iy,Jh«ll«P(Zri|JUI 
C>IOPSY(I»J)«DPSY(I«l»J))t>DV/2-DL::»rH(iy »JW II 
60 TO 50 
CONTINUE 

PN=.2S>*(PllW«l,JWI«P(IU»JW-lMP(Zb ;JW)*(0PSX (I,JMCPSX1I»J* III 
C*DX/2«P(IWtJUI« (CPSVd »J«l>40P£Y(l«l,J«in*OY/I-DL2*FH(IbtJWn 
60 TO SO 
CONTINUE 

PN:.2S«tP(IW*l,JN)«P(Ib,JU4l}4P (Xw »Jb)-(DPSX (IfJMDPSXC Z, J« 111* 
CDX/24P(:u,JW)-(DPSVIZt J)«0PSY(l«X,Jl)<t<DY/2*DL2*F>i(IWtU«l) 

60 TO SO 
CONTINUE 
PNSARBP 
60 TO SO 
CONTINUE 

PN:.2S«(P(ZWt JW«1I«P(XW-1»JWI«P(XW»UW|«I0PSX (X« 1 tU« 1) 49PSX( I« 1, Jl I 
C*0X/2«P( IW»JWI*(0PSYlI,JI«CPSy(I«l,«l|}«rY/2*0L:*FH(ZUtJU) I 
60 TO SO 
CONTINUE 

PN:.25«(P(IW-l,Jbl4PllytUy-!)«F (ZW,JU )4|0P SX (l4 1 tU)«OPSX( Z* !•» J« 1 1 1 
C*0X/24P(ZW,JWH (CPSy(Z»J*n«DPSY(I«l,J«n l4>0Y/2>DL2»FH(ZWtJUl I 
60 TO SO 
CONTINUE 

PNS.2S»(P(1N,JU«1 |4p(lk*l ,JW)«P (IW rJU -1)«P IIU ,UW I « ICPSXI 1« 1, Jl 
C40P5X( I* ItJ* 1 l)tt6X/2-0L2«FHIIWi JW 1 1 
60 TO 50 
CONTINUE 
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I 

I 


1 

I 

I 


I 


SI 


PNsC*25wlPtZWfJW-lMPClW,JW«l)«PIZW«i »JM )«Pf lU t Jl» 

SB 


C-tDPSX(It J)*0P&X(I»J«in*CX/2-DL2»FHI3W,jUll 

59 

5 V 

CONTINUE 

63 


PNt:w:OHeGl«PN«ll*OHECA)*PIIW(UW} 

61 


Xr(C.US<PNCw) .LT.U0»**-16. II 60 TO 51 

62 


0ZFP=A6S 1 (PN£W->P(lUtJW))/PN£k) 

63 


ZF (DZFF.LT.EXI GO TO SI 

64 

EXSOIFF 

65 

61 

PIZUtJklsPNEW 

66 

57 

CONTINUE 1 

67 

1C 

CONTINUE 

6S 


HT=Ptl,6l-AR3P 

69 


00 30 lUrltlUN 

70 


DO 30 UW=1,JHN 

71 


■ IF (HRH( IW,JU I.CQ.OI 60 TO 31 

72 


P(IU,JUI=P(IW,JWI>HT 

73 

31 

CONTINUE 

n 

3C 

CONTINUE 

75 


IFIEX.LT.EPS! GO TO 20 

76 


ifiitn.lt.maxiti go TO 1 

77 

iQ 

CONTINUE 

73 


RETURN 

79 


END 



306 


9.2.40 PRE2 

This program computas aurfaca praaaura for naar flald from 
Polaaon aquation. An Itarativa aehama la employed. Valuea 
are computed at half grid pointa. 
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I 

I 


I 

I 

I 

I 

I 


A 


j. 

I 

1 

I 


•ooe 

•PRE2 

• 

t 


SUBROUlIte PRC2(ei>$tMAXITtXNfJN»PtnN«DPSXt0R$7tFHtDi>2|0NC0A» 

2 


iNRNf lfJ«K(ltit*tUfOXtOVfEXt XUR i JMN y AR8PI 

s 


OIMENSIOA PllllNt*iVNI|FHf XUNtJUNi tOPSXClNt«l^>tOPSV(XNt JN| 

< 


OXMENSXOli NRHCXMNfJWM 

s 


XTNSO 

i 

1 

EXS0..0 

7 


XTN:XTN«1 

1 


OOSARBP 

9 


00 1C XWOsitXVN . 

10 


00 10 JU:l,JIIN 

It 


XU=(XWN«1I-XU0 

12 


isxv 

13 


JSJW 

1« 


XP CP9M(XN,«IUI.E0,iil 60 TO 2 

IS 


XF CRRHf XWtJUl.EO.il 60 TO 11 

16 


XF fHRH(XWtJWI.C0.2l 60 TO 12 

17 


XF (HRHtXWtJWI.EQ.Sl 60 TO 13 

It 


XF (NRH(XW,JUI.EQ.9I 60 TO in 

19 


IF INRHI XWtJwl*E0*5l 60 TO 18 

20 


XF (HRHCXVtJUI.EQ.6l 60 TO 16 

21 


XF (HRHCXWtJUI.EQ.71 60 TO 17 

22 


XF (HRHIIUtJUl.EQ.8l 60 TO It 

23 


XF (HRH(XUtJWI.E0.91 60 TO 19 

29 


XF (HRHCIWtJUl.EQ.lQl 60 TO 20 

2S 

2 

COKTXNUE 

26 


PNs.2S*(P(XU-ltJUl«P(XU«ltJUl«P(XUtJU«ll«P(XUtJU«ll-0L29FHi XUtJUIl 

27 


60 TO SO 

2i 

n 

CONTINUE 

29 


PN:.2S«(P(XU-ltJUl«P(XU«l tJUI*P(XUtJU-ll«00-0l>29FH( XNtJUn 

30 


60 TO 50 

31 

12 

CONTINUE 

32 


. PN:.2S*(F(XU-ltJUl«P(XU«ltJUI«P(XUtJW«H«P(XUflWl 

33 


C-(DPSV(XiJl«0PSY(l«ltJl>*DT/2-DL2*FN(XUtJWl 1 

39 


60 TO 50 

3S 

13 

continue 

36 


PNs.25*(P(XU«ltJUMP(XUtJU-Xl«2*0D-0L2*FH(XWtJUl 1 

37 


60 TO 50 

3S 

19 

CONTINUE 

39 


PNs.2S*(P(IWtJU«xl«P(XU«ltJUM2<»00-0l.2*FH(XWtjUl 1 

90 


60 TO 50 

91 

16 

CONTINUE 

92 


PNs.25*(P(XUtJU«ll«P(XU-ltJUl«2900-0L29FH(XUpJUll 

93 


60 TO SO 

99 

17 

CONTINUE 

9S 


PNs.2S9(P(lUtJU-ll«P(XU.l,JVl«290D-CL2»FH(XWtJUll 

96 


60 TO 50 

97 

18 

CONTINUE 

98 


PNs.25*(P(lW.ltJU}«P(XUtJU*l)«P(XUtJN'>ll«00'*0L2*FH( IU,JU| 1 

99 


60 TO SO 

50 

19 

CONTINUE 

51 


PN:.25*(P(lU>ltJU)4P(XU«l,JUHP(XUt JU-ll«P(IUtJU«ll*Dl>2*FH< IN. jWll 

52 


60 TO 50 

S3 

id 

COiaiNUE 

59 


PN = .25*(P(XU«ltJUl«P(lUtJU.ll«P(IWt>lU«ll«DD«0L29FH(IUtJU) ) 

55 

50 

Continue 

56 


PNEU=0HE6A*PN«i 1*0HE6A19P (1V,JU1 


Op j ‘ 

n/;;/ . 

'V 














7 


XMABS(PI>Ctll«lT«C10*»*-16*ll 60 10 81 



OXFFsaBS < (FNC N-F 1 XU f JU n /PN EU I 



XF fOXFF.lT.eX) 60 TO SI 

0 


CXSOIFF 

1 

ftl 

PIXU,JU|SPUCU 

2 

10 

CONTINUE 

S 


XFcCX^tT.CPSI 6C TO 32 



XFdTN.tT.HAXITI 60 TO 1 

5 

32 

CONTINUE 

ft 


. RETURN 

7 


END 
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9.2.41 FREROR 

This subroutine prints Hlrt end Harlow correction term, 
(WHLDT) 


« 




I I 1 1 1 r rii II I I II S I 


•OOCtMCftOR 


C 


7SOO 

TSIQ 


THIS PAOGDAN prints THE HTRT and HARLOW CORRECTION TERN 


SUO ROUTINE PREROR|IWN,XW,WHLOT»JW,UHN*INeJN) 
OIHENSION UHLOTlIWNfUHN) 

00 7590 IWS1,IHN 

PRXNT-'7SICtlWtlUHLDTaHtUUItUHsltJHKI 
FORMAT!/* IWS'dSt/* tfKl>0T*/ISXtSElS.7}> 
RETURN 
END 


SO 


I 
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9.2.42 PRINTS 

This subroucint prints XINT and TINT used in computing 
surface pressure. 
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[ 

I 

r 


•OOC .^KINTr 

1 C**********************************************************************! 

2 C THIS PftOGIIAH PRINTS THE INTCSRATED VALUES OP C0N8INE0 XNERTXa ANQ 

3 e AnO viscous terms in U AND V MOMENTUM EQUATIONS 

R C********************m***********************************R*****R***R*** 

S SUSROUTXNE PRINTE Cl tUflM ,JM ,XXNT ,VIKT »XN ,UN I 

0 CXMENSXON XINT|IN,JN |,VXNT(IN,JN) 

7 DO SNO I:l,XN 

• PRINT •IOOtX»tXINT|X,JI(Jsl»JNI 

« ICOO PRINT •2COtCYXNl<ItJ)fl:ItUN| 

10 1100 PORMATI/* l:*tI3t/* XXNTVI SXtSElS*7l> 

11 S2C0 .PORMATt* VINT*/ tSXiSElS.TIl 

12 RETURN 

IS ENO 


i 


I 
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9.2.43 PREPINT 


This lubroutlntt prints PINTH. which Is surface pressure. 


i Ik iif If iiHii f 1 t iiai i tiittf iiejseiittiftiBtffiliiti eirriiT 
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I 


I 


I 

I 

I 

[ 


•0 


C.MPXMT 
C*< 
c 


THIS MOCHAH MINTS INC VALUE OF NINTH OyCR THE SURFACE 


« SUIROUTXAE FRFXM(IH,JH,IHN,UHN»FXN 1 NI 

S OXNENSXON NINTH |INN ,JuNI 

A S 200 00 S 3 Q 0 IHSltlUN 

7 NRXNr SROCtlUtlNXNTH<lN«JHI,JU:l,JVN| 

• S «00 FORNATI/* Itts«tX 3 t/tSXtRElS.TII 

f S 300 CONTINUE 

10 . RETURN 

SI END 


( 


[ 

I 

I 

I 

r 

[ 

[ 

[ 

[ 

E 

[ 
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9.2.44 PRXTEX 

This subroutine prints ths number of iterations and final 
residual error in solving Poisson eq\iation. 


I 


«ooc«Mnex 

1 C**M«*«M«***«***«*»*****««*«*M*M«**«««*«**«««00*M****«**MMM«*** 

t C THIS MOtRAN RRXNU OUT TNC VALUES OF NUHIER OF ZTERATEONS ANDFINAL 

S C RESIDUAL ERROR XR SOLVZNS FOISSON 


SUlROUTXRE FRXTEX«XTN,EXI 
FRXNf ISeOtXTN,EX 

SSOO FORNA.«l/« XlNS*tXRtlXt* Exs**eiS«TI 
REVURN 
EKO 


9.2,45 PRSORC 

This subroutlns prints sourcs tsrm CRight hand slds) 
in Poissons aquation for surfacs prassura. (Eq. 2.17 Vol.l) 
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I 




2 C THIS PROSCAN RRINTS ThC V.‘.:.UC qF THE SOURCE TERM IN POISSON EQUATION 

3 C*************************************************************************! 

N SUIROUTInC PRSORCIIWtJlitlHNt«IUN«n 

S DIMENSION F(IWNt«fNN> 

« DO 6000 lUSltZMN 

7 6000 PRZNi:„61CCtIU«trtlUt«<Ml,JHS|,«IUNl 

• 6100 FORHATI/* IUS«tl3/« SOURCE TERN*/ tSX tiElS tT 1 1 

9 RETURN 

SO END • 
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9.2.46 PRUV 

This subroutine prints the values of U and V at all 
main grid points. 
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l•OOC•PRUV 

1 €•••••••••••••••«••«••••••»*•••**•*•«*«•«••••*•«•*«••«•••*«••«»••*•«•••«•«•• 

2 C THIS program prims THt VULIlCS OF U AND V AT GRID POIMTS IN IMt DOMAIN 

N SGBROUIINC PRUV 11 ,N ,1N , JN ,KN *U , V I 

S DIMENSION U(I*:,JN,HN l,V(lNtJN,KNI 

* 00 «1CC Nrl,KN 

7 DO 7'IDO l:ltIN 

• PRINT «OCC«Nt Ii <U<I tJtKi t>l=l»JNI 

9 9100 PRINT 9:CCtlVlltJ«K)»J=l,JNI 

13 9C0C format*/* K = * ,I3t3X,*lr*,I3/* U-VCLCCITY •/< SX (OC IS'.TI I 

11 92CC format** V-VCloC11V*/*SX,OC1S.7I> 

12 RETURN 

IS END 








< 5 * 
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9.2.47 PRWK 

This subroutine prints the values of the vertical vel- 
ocities at all half grid points. 


u u u 
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C*pRWK 


THIS PROCPAH PRINTS THE VALUS OF WN IN THE OONAXN 


SUOROUTIAC PRNH , {VN » jUN,KNfUN) 

OlMClkSlON UHIlyN(JUNtKN> 

00 Tcoa n:i*nn 

00 TOGO XNSltlUN 

TOCO PRINT 7 XCCiH»iy*IWHfIUtJktK)t><U=ttJWNI 

TIOC FORMATI/* K = *»X 3 »!Xt« XW:*tX 3 (/« Uh'VEi OC ITY */l S'. , 8 CI S.TI I 
RETURN . 

ENO 
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9.2.48 READ2 

This subroutine reads in input papameters and physical 
quantities stored on file designated by Unit 7. Store 2 and 
Read 2 correspond to each other. 


I 
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*ooc 

1 

2 

s 

n 

s 

6 

7 

• 

♦ 

10 

n 

12 

13 

1<I 

15 

16 
17 
IS 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 

32 

33 


RCA02 

C THIS PROGRAM RFACS TAPE TOR DATA 1 FOR THE VARIABLE DENSITY CASE 

SUBROUTINE RE AO 2 U’t V tWN*PXNTH»l , J »N »lHtJM «lN|JN«KN»XUNt JMN,0(Et 
CllX,HVfHX tMARtMRH,AX t AH «A V *AP »0X *0V 1 02 tOT , TAUX »TAUV tWf WR « bRHt 
CTAX«TAH|TAVtAKTtCBtCU|A,BtC»CULfTfTUtR0tR0U»TCtRRCF(TREP»T0tTAM8» 
CTTOTI* 

DIMENSION U(XN, JN»KNI,vnN»JNtKNI*0(IN»UNtKN)|E( INtJNfKN) , 
CWNilUN,«lbN,KNI(PINTHIlWN,JbN I 

DIMENSION MX(IN,JN}»NV(|N»JN|,HltlNt*INIvHARCINtJNI»MRHl lUNtJUNTf 
CN(IN,JN,KN),WR(XN,JN(KNI tWRHdUN, JH N,KKI 
DIMENSION T(XN, JN*KN I(R0(IN t JN tKN I » TN ( XUN »JWN |KN > »ROW I lUN, JVN tKN I 
REVIND 7 

READ IT) IIIUlItJtN ),Nrl,KN),Usl,JN),Isi»IN)t 
CII(VII,J,K),K:i,KN),^:i,JN) ,1:1,1N) • 

Cl I (0 I IfJyK) fKsl ^KN) f«Js) fJN) #1*1 #IN) # 

CIIICIItJiK)#K-l#KNI#*l— 1# JN I #I-1#IN) # 

CIIIUHIIU tJV«K )»t< = X#KN)«Jw = ltJUN)#IU=ltIUN)t 
CIIIUlltJ|K),K=l#KM,J = l,JN),l = i,lN)# 

CIIIVRIX# J,KI*K=]#KNl»J=l»JN)»I=iiIN|t 
ClltWRHIIU.JUfK) ,K=l,KNI,JU=ltjUN)tIU = l#IUN)« 

C| (PINTHI IU,JU )#Jb = l#JNNI#Ibr| #IUN) 

CtllHIIl# JI,jrl,JNI#I=l,IN|# |(HX|I#J)#J = l#JN),l:i .IN)# 1 1 HY 1 1 » J )« J = 
CI#JN)#X=1#1N) #1 IHARII#J) #J=l#JNI#Irl,lN)»||HRH|IW, JW) ,JU=1# JUN)# 
CXW=l#IbN|,| 1 1 T|I,J#K )#K£l,KN)#J=i,JN)#l = l #XN), 

Cl IIR qI I f J*K) *K- 1#KN) #J*1( JN l#Irl#IN)( 

Cl IITblIU#Jb,K l•K = l#KN)(JWrl # JWM ) # lU =1 # IWN ) » 
C|||R0W|IU#JU,K»,K=1,KN l#JU=l#JbN)#lU=l,IUN) # 

CTA1*TAH» TAV.AKT#CB,CW,A,B #C #CUL#T,TU#R0#R0U #TC,RRCF,TRCF#T0#T aMB# 
CAl#AHiAV#AP»DX,DY.02#OTf TA uXiTAUY»TTOT 
REMIND 7 

return 

END 


4^ 

: ■•V.. 








9.2.49 READ2A 

This Is a subroutine used to read information stored by 
the subroutine ST0R2A, for a far field unstratified model. 

It differs primarily from READ2 in that it does not include 
the matrix ROW (the densities at half grid points) . 




KH^OtiUm 

1 

2 
I 
H 

5 

6 
7 
B 
9 

10 

n 

12 

XI 

15 

16 
17 
la 
19 
23 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


• f?*:A02A 

c 

SUr 

CHX, 


DEPUTY CASE 


THU PhOGi^AH .U’ACS TAPr VOK DATA 1 FCR THE VAUAflf 

<uUTir*C UTA (U,V.M*.P1> TM, I * J,X, Ig ,JW ,XU,JS ,IU, , 1^9 1 JV.N , D 1 1 f 
if^ATfAX |AH«AV fA^fDX #CY fOi. #6T #T AUXtTACY 


f Ml f ^'A ‘ 


CTAI.UH, TAV, AKT.Cf-,CW,A,B t C t Lt’L » T , TU ,R0 f T £ ,96 £f , T C £F , TO » T ArtB , 
CTTOT,ITN,:x> 

DIMERS IC\ UUr.t JNfKM, VC IN , JN ,KN ) , 0 C ZK, JN , KN I ,L f 2K , JN,KN I , 

CWMC iw^,jwf,,KMt r ir.THCitet;, ) • 

3Xf:EN3I0N HX<I'C,JM ,HY C IN , %/M ,H X (I N , JM ,**ARC U/,JM ,^*nHC IWN, JWNI, 
C6 U N , JN, K M , K R C : N f J N ,K N » , W uF< ( I W N , J*« f , RM 
UIHCnSZON TCXN,%ih,KM ,R0 t ir^ ,JN,KM ,Tk CIWN, JWNfKM 
60 TO iZi 
HCUIND 7 
1.^0 CONTINU: 

READ C 71 H cun , J,K ),K = 1 ,KN) ,jrx , JM ,1 = 1, INI , 

CC C CVC I,JfK/,K::X,KN) ,J=lt fl:lf XNI, 

CC C C')C I,J|KI,KrX,t.N) ,jr;, JM 

CC CC^Cl, J,K) ,KrX,KN) ,jri, JM U = INIf 

CC C C ^'HC IW, Jk,K >rh nl,KM , Jw::; ,JKM ,lkrx ,IUNI , 

CC C C wC I I j,h) ,K ) ,J=1 , Jf. ) ,lrl , INI » 

CCCC ^KCi,vl|K)fF-XjKN),JrXf »J»* 1, 1*1, IN I, 

CC CC «H*MIC Ik,JW,KI ,KrX ), JW = X,J.»N1 ,1W::1,IUN ), 

CC CPINTMC Ik,JW l,JUn,JWf. ) ,Tl.rl,IkNI 

c,ccH:cifJifj=:,JM,iri,ir. >,cchxci,ji,j:i,jni,:=i,im,cchyci,ji,j* 
C1,JM ,I:X,IN1 , C CnARCI,Jl , ,I::ltIM , C CMRHC U,Jk) ,JU*1, JmM, 

ClWr mwM f C ( C TC I , J,K ) ,K = 1 ,Kf. ) iJrl , JM ,lrX , INI , 
C(CC'‘OCI,J,K),H=l,HN>,Jrl,JM,I*l,IM, 

CC CCTV/C ),K*1|KN) ,%/W~X f«Jwfil,Ii%*X , 

CC C C TkC IW, JN,K ),h = !,KM f JV^rl ,JWN 1 ,Ik = X ,IWM i 

CTAIiTAH, T/V, AM ,CC,CW,A,r ,C,lUL,T ,TW ,RC,TW ,T£ ,RPLF , T.UF , TO, T A »*L , 
CAI,MI,AV,AP,DX,CY ,D:,0T, TAUX,TAUY,TTOT,ITN ,:X 
CO TO dZ^J 
REWIND 7 
irQ CONTTiUE 
RETURN 
END 
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9.2.50 READ2B 

This tubrouClntt rtads information stored by the subroutine 
ST0R2B for a far field stratified model. It differs from 
READ2 in the fact that the matrices TW (temperatures at the 
half grid points) and ROW (densities at the half grid points) 
are eliminated. 


I 


<M*OULLm.nCAD:S 


1 

2 
3 
H 

5 

6 
7 
• 
» 

i: 

n 

12 

13 

l<t 

15 

1!> 

17 

IS 

19 

20 
21 


C* 

c 


This Hr>cru I heads tape rc^ data i tm: va»:iadl!: density case 


SUt 


?cuTr.t 

MA 


iCO 


IUfVfkiMfrifiTM|I fJfH f IS* tJn f^Nfl WN $ Jti # U t b t 

CHXfMYtHlf^ARi MiU>» AI |AH»^V|Ar » OX fu V ir2 iC T , T 4UX » T/ UY t W » Wn » * TH • 

CTAI , TaH, T«Yf AKT»Cr,CW»A|B 9C»tUL,T»f«0»T:tRRcr 9T:?£rtT09TA^2^» 

crTuTtiTNtrA) 

OXKL*N$JiON Ul 1 |V(IK t^N fKWI |0 I1N|JN tKN I f T* # 

Cbiu zu ,KN t jhM 

OH^CNSION fiX( lu, JM »HY| IKfJK) ,Hlf t^AP( IK | Jh » , N t Jl» N I » 

CW 1 1 *J f Jfi I K I f W r ( I f« I J K f K ^ I I In K It I I W K f JW K' $ hN I 
OZH^NSXON TIiNfJNfKNIiRO nKfJNfKM 
CO TO i:^c 
RCitfINO 7 
CONTIf^UE 

ftCAD <71 (IIIUI i^SKItKrl tX = l»ItO» 

cm VMIiJiKliKrliKM 

CncOCIiJfKItKrl^KM ,j:i9JM»:r! vlK^f 
C<(<F.<:»J9KI»Krl9KM9J":tJK)*I*l9lK)f 
CmUHC In« Jb,K 9 Jwri I »;•.=! iXWNI 9 

c< < <>M I9J9X) 9 k = : 9itfj 9J-1 rJK>9i-: 9ir«) 9 


22 

23 

24 

25 
2ts 

27 

28 
29 
33 

31 

32 


C<<<WF< 2, j»K) 9Kr l|K\» tJrl, pIKIt 

C< < < l/iUHUpJUpK > pKr: iKS ) 9 JWZlpJwN ^ pIa - IpIbK I 9 

C< fPINTHt IWp Jb Ip Jk::I pJUN I plk.rl pIUM 

CpUHKIp JIpjnipJKipIrlpXM pMMXdp Jlp jrlp JM pir t p!M9C<MYi IpJlp^^ 
Cl pJM pl::l tl:0 pMKMfX »«:i 9 J::| pJN I pIrlpINI p < (HrtH< Xb t JWI p It JmM » 
CiUr Ipluvi pi ( < 7( I lUpK I pHrl pKK) pjrl p JM pl:l p Ui) p 
C<< ( ^0< IpJpKI 9K»IfK>j|fJ»I|j|^)pI.IpIK'|p 
CTAi pTAH, TAV pmKTp C^ pCWpA ,B pCptUL pTF p-REP pTP tF.TC pT^KCf 
CAI 9 AM 9 AVpAFpDXpDYfOZpDT pTAUXpTAUY pTTOTpITK ,%X 
60 TO 23C 
PEbIflO 7 


33 

34 

35 


.:o coKTx.iu: 
RETURN 
END 




r 





9.2.51 READ3 

Thli program classifies inco interior, coni«r or boundary 
points as shown in Figs. (9.5 and 9.6). 

Matrix MAR classifies points on the main grid. 

MAR - 0,' Point outside the region of interest. 

MAR - 1, Point on the far y-boundary. , 

MAR - 2, Point on the near y-boundary. 

MAR ■ 3, Point on the near x-boundary 

MAR ■ 4, Point on the far x-boundary. 

MAR - 5, Far corner on y-axis 

MAR « 7, Corner at Origin 

MAR - 9, Far corner cr. x,-axis 

MAR ■ 10, Corner at the far x-boundary and far y-boundary 

Matrix MRH classifies point on the half grid. 

MRH - 1, Corner at the far x-boundary and far y-boundary. 

MRH - 2, Points on near y-boundary. 

MRH - 3, Points on near x-boundary 

MRH “ 4, Corner at the near x and y boundaries 

MRH ■ 6, Far corner on x-axis 

MRH - 7 , Corner at the far x and y bounds . 
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I 7,-. 2 2 J 2 2 .? 



ALL INTERIOR I 
GRID POINTS j 
ARE MARKED 11 ' 
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•4 


3 • 


•4 


3 '4 
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Fig: 9.5 Representation of Identifying numbers in the main grid 
system for near-field. 
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l«OOC 

1 

2 

3 

« 

s 

« 

7 

• 

9 

10 

It 

12 

13 

1« 

15 

16 
17 
16 

19 

20 
21 
22 
23 
2H 

25 

26 

27 

28 
29 
SO 

31 

32 

33 
39 

35 

36 

37 

38 

39 

40 

41 


RCA03 

SUBROUTIKC RE«0}(I»JfIN»JN»lU*JW,IVK,JUNtMAR(MRHI 
OIMCNSXON N«RtlN,JM,MnN(XUN,JWN) 

1N»I1 = IN-1 
JNMUJN'l 
IMRlsXbN-l 
JWM=JUN-1 
DO 1.C0 XzZtXNHl 
DO 100 J:2fJNHl 
MARIl*j):ll 
100 CONTINUE 

00 2C0 XbsZtlVNl 
00 200 Ub=2iUbNl 
MRNIXWf jb)s9 
20C CONTINUE 

00 SCO |:2,XNR1 
N«RIXtJNi:i 
NAR(Xtll=2 
300 CONTINUE 

00 400 J:2,JNK1 
NARCliJlsS 
MaR(XN,^>:4 
400 CONTINUE 

DO 500 lUr2,IWNl 
MRHIIutJuNl^l 
MRHdUyl |:2 
SOC CONTINUE 

00 600 UU:2,JVN1 
MRN(l»Ju>=lC 
HRHI XWN»UW)=e 
600 CONTINUE 

NAR(1, 111=7 
MARTI, JN):5 
MART IN,JN)=10 
40 

martin, 1 )=9 

MRHT1,1)=4 

MRn< 1,jNNI=S 

MRHTIUN, JUN)=7 

MRMTIWN,1)=6 

RETURN 

END 


1 
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9,2,52 ROINTX 


This subroutine computes In the Poisson's equation 
(Eq. 2,17, Vol.l) Xp is then added to 'XINT'. 


I 
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*ooc 

•ftOlMX 


1 


SUUftOUin^C ROlNtX (! ,J,k,lN,JN,KN»nX tOVtOZ *ROt*P*Cllt»NI( 

2 


CHAR RlNTXfMX, XI M 1 

3 


OlPCNSlODi HIN1X <lN,JN,hN l,KOIIN»JN,KNI»XIM I1N*JNI »NI< JN* JN» t 

% 


CHARnN*JM»HXII*itJK» 

S 


OC ICC 

6 


00 ICC J'liJN 

T 


ir fHARI ItJI.fiO.Ol CO to 101 

8 


RII«1X|1, J,tl = C.C 

9 


DO lie N=:tXN 

la 


ir IHtRI 1 «JI. 10*11 GO 10 11 * 

11 


IF IMARI 1*J).F0.^I CO 10 12 

12 


IF IHARI l.Jl.CO.SI CO 10 13 

IS 


ir IPaRI l*«M*fO**l1 Co I 0 IR 

1% 


IF IPARI CO TO IS 

15 


IF IMARt lt<J>«(^0*Ol CO 10 U 

16 


IF IhARI I fJl *C0 *71 CO 10 IT 

17 


IF IMARC I«JI *C0 *BI r>0 10 18 

la 


IF IMARI IfJI.rU .9 1 CO 10 19 

19 


IF IHAR( I.JI.CO.ICI CO TO 2C 

20 


RX = |)Z9<RC(1«1,j,kI«Ro< !♦ 1»J*K-1 l-RO C 1 - 1 , J ,K 1 -ROl 1 - 1 * J ,R-I 1 1 / (:R*OX 1 

21 


CO 10 1q2 

22 

11 

CONTINUE 

2S 


RXsDZ* «1 ,J *K |«R0(1«1 *J *K>ll>RO 1 1-1 * J *H 1 -RO ( 1 - 1 »J *K -I II / < <t« 0 X 1 

29 


60 Ifl lo* 

2 ^ 

12 

CONtINUC 

26 


RX:nZ«4R0(l« 1 *J (K l♦PO«l♦ 1,J,R-1I-R0 11-1* J»K l-ROI i- 1 * J* K- 1 1 1 /« R*0* > 

27 


CO TO 102 

2 a 

13 

continue 

29 


RX=02*1R*IR011*1,J,KI«R011«1,J*K-II1-J*1R01I*J*K1«R01I*J*K-1I1 

50 


C-(R 0 ( l«2**l*NI«RC(I«2*J*K-ll ||/t<t*OX 1 

3l 

19 

COM INUC 

32 


RX:n7*l3*tR0(l,J*KI«R0tI*J*K-lll«IR0II-r*U,KI«R0(l-2* J*K-1I 1 

35 


C-A«| ROt I -1*J*K |«R0(I-1 ,U,K-1 1 11/ t<t«l)XI 

39 


CO 10 102 

35 

15 

CONTINUE 

36 


RX=02*l*t «(R0| I* 1, J,K |«R0 II«1*J*K-1II-3«IR0(I*J*KI«R01I*J*K-HI 

37 


C-IROl 1«2 *J*KI«rO<I* 2*J*K-1I ll/C>i«OX 1 

36 


GO TO 102 

39 

16 

CCN1INUC 

90 


RXzO/*|ROtI*l ,J ,K |«RO|l«i,J*K>ll-RO tI-l*J*K l-ROI I-1*J*N-1II / m«nXI 

91 


CO TO 102 

92 

17 

continue 

^3 


RXiO/All-MROl I* 1*J,K l«R0 1 1« 1*J*K-1I 1-3* ( R 01 I * J«K 1 ♦ROl 1* J*K-ll 1 

94 


C-lROl 1*2, J*KI«RO 11*2, J,K-ll ll/l4«0X 1 

95 


CO TO 102 

96 

16 

CONTINUE 

97 


RX:02*|R0|I«1,J,K |«ROlI«l ,U,K-ll-'TO 1 1 • 1 * J *K 1 >R0 1 I - 1 ,U *K - 1 1 1 / 1 *t»nX 1 

96 


Co 70 102 

99 

19 

CCMINUC 

50 


RX=P2*13*1R0(I, J*XI»R011 ,J,K-1I l«IR0ll-2* J*K }«R01 1-2*^*R-1I 1 

51 


C-*l*IKOI 1 -1*J*K 1 «ROtl-l ,J,K-1 1 1 1/ 190PX I 

52 


60 TO 102 

53 

2C 

CONTINUE 

59 


RX=07*13*1R01I, J,KMRO(I,J*K-l) l♦|t^C^I-2,J,K^♦R0^I-^* J,K-1IT 

55 


C-R*(R0U-l*J.X»«i;01I-l,J,h-l »»»/ (<»*PX J 

55 


CO TO 102 


^iginal PAar . 

owurv 


ST 

102 

CONTSNue 

SS 


RlM7XII>J,K)sftlN7X<lfJtK-ll«RX*Hlll(JI«tROCX»U»KI«ROI X| JtK-1 1 1*02* 

S« 


CHXII,UI/2,0 

*0 

110 

CONTINUe 

«1 

101 

COMINUE 

42 

ICO 

CONTINUE 

43 


DO 2C0 IS1,XN 

44 


DO 200 JSltJN 

4S 


IF «MARIX»J).E0*0) GO TO 201 

44 


00 21a KS?,KN 

47 


RXKTXIXt«ltK|sRXMXCl,J ,K |•(K-l I4DZ4NX <X »J 1* (ROIX (J'f KMROI X» J,K-1 f } 

44 


C/2*0 

49 

210 

CONTINUE 

70 

201 

CONTXNUE 

71 

200 

CONTXNUE 

72 


DO 300 XslfXN 

73 


DO 300 JSlfJN 

74 


If IHAR( ItJl.EQ.C) 60 TO 301 

75 


DO 310 K=2,KN 

74 


RSUMX:(RXNTX(X,J,K)4RINTXtl,J(K>ilM(0Z/2l*AP*EUL*HX(I,J) 

77 


XlNTtI»J)=XXNTII»Jl«RSUMX 

78 

310 

CONTINUE 

79 

3C1 

CONTINUE 

40 

300 

CONTINUE 

81 


RETURN 

42 


END 


MNK 





intmowb* 
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9.2.53 ROINTY 


This subroutine computes y 


P 


In the Poisson* 


equation. 


y„ Is then added to 'YINT* . 
P 


•ooc 

t 

2 

3 

H 

S 

* 

7 

♦ 

10 

It 

12 

13 

1« 

IS 

IS 

17 

IS 

19 

20 
21 
22 
23 
29 

25 

26 

27 

28 

29 

30 

31 
i2 

33 

34 

35 

36 

37 

38 

39 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 

50 

51 

52 

53 
59 

55 

56 


R019TV 

SU8R0UTX6C ROIN YV (1 * JtK 1 1N» JN«NN»DX «0V tOZ fROt ARf CuLtNI»MR, 
CR16TV,H7 tVlNT I 

OIMCNSIOK RZNTY fXM ,JN > ,R0 IIN»JM ,N6 1 tVlKT ( IN, JNI tHl ( IN, JNI » 
CNVIXN,JN),NlRfXN,JN) 

00 100 X:i,XN 
00 ICC J:i,JN 

XF (N6RI X,J1.C0*0I 60 10 101 
RXNTYIZ, J,ll:C.C 
00 lie NS2,KN 

Xf XtJitCO.ll GO TO 11 

XF (MARI l,J).CQ.^t GO 10 12 

XF (MARI X,JI*C0*3) CO TO }3 

XF (MAr( X,J>.C0.4I CO TO 19 

XF (Mari i,ji.co.si co To is 

XF (MARI X,J).r0.6l GO TO 16 

XF (MARI X,JI.CQ.7I 60 TO l7 

XF (HArI l,JI*CO.ai 60 TO 18 

XF (Mari x,ji*ro.9i go to 19 

XF (MARI l,JI.C0.10l GO TO 20 

RV=0Z*(R0|X,J«1,K >«RO(l,J«l,K-ll-RO(X,J-l ,K I -RO I X , J-1 ,K- 1 1 1 /( 9*0V I 
GO tO 102 

11 CONTINUE 

RVsOZ*(3»(RO(X,J,NT«RO(X,J,K.|n«(RO(X,J-2,K)«RO(X,J-2,K-in 
C-9 *(r 0(X ,J*1,NMR0(X ,J-l,K'l )))/ (9«CVI 
GO TO 102 

12 CONTINUE 

RV=0Z9(9«(R0(I,J«1,K l«RO(I,J«l,K.ll ) -3* (R 0( X , J ,K I «R0( X , J ,K>1 1 ) 
C-IR0( X, J*2,K1«RC(I,J«2,K>1I 1 1/ (9«0V I 
GO TO 102 

13 CONTINUE 

RV:DZ«(R0|X,J«1 ,K l«RO (1 , l-RO IX , J-1 ,K I -ROI 1 , J*1 ,K-1 )) /( 9*071 

GO TO 102 
X9 CONTINUE 

Ry:OZ*(RO(I,J«l ,K}«R0(X,J41,K>1I-R0IX,J-1,K l-RO(l,J-l, K-1) 1/(9*071 
GO TO 102 
|S CONTINUE 

RVsD2*l3*(R0|I,J,NI«R0(X,J,K.l)|«(R0(I,J-2,K)«R0II,*l-2»K*in 
C-9 *(rOI X,U- 1,K) «R0( I, J>1,K-1 n 1/(9*071 
GO TO 102 
16 CONTINUE 

RY:DZ*tRC(X,J«l,K)«RO(I,J«x,K.x)-RO(l,J-l,K l•R0(I,J•l,K•lll/(9*07) 

Go To l 02 
XT CONTINUE 

RY=02*(9«(R0(T,U«1,M )«R0 ( X , J« 1 ,K«1 1 I -3* ( R0( X , J, K 1 «R0( X,J,K*1I) 
C*(R0( X,U«2,NI«R0(I,J«2,N-lm/(9*07 I 
GO TO 102 

18 CONTINUE 

RV=OZ*(RO(X,U«l,K |«POIX,J«X ,K> xI-RO (I,J- 1 ,K > >R0 ( X , J*1 ,K-1 1 ) /( 9*07 1 
Go To 102 

19 CONTINUE 

RY:PZ*(9«(R0(I,J«l,K l«RO (I, J« 1,K«1I I -3* ( R 0 ( X , j, k t *R0( I, J,K*1) > 
C-(R0(I,J«2,N|4R0(I,J«2,K>1) n/ (M*OY ) 

60 TO 102 
2C CONTINUE 

RYsOZ*!! *|RO(I,J,N MKO II ,J,K-xn4(R0(I , J-2, K I 4R0 1 1 , J-2,K -11 1 
C-9*|RO(X,J-I»Kl4ROIl,J-l»K-lni/|9*OY» 


T 


to TO 102 

• 

1C2 

CCNTlNUe 

f 


RINTV|l,J,K|sRXNTYIZ(J»K.il«RV*HICX ,JI « IROI X »J,K }«ROI X, J,K-XI (•QZ* 

3 


CHVIXt«l>/2*0 

1 

lie 

CONTXhUE 

2 

101 

CCMTXNUE 

3 

ICC 

COhUKUE 

« 


00 200 1:1, XN 

S 


00 200 JsltJN 

6 


If IMAM X(J)tEQ*OI 60 TO 201 

7 


DO 210 ts:,KN 

• 


RXATV(X»«,’<>snXMYa ,J,K l-|K-tl«02*MY II «J}* IROII tJtKI«ROIZ»JfK-l)l 

9 


C/2*0 

0 

210 

COMTXNUS 

1 

201 

CONTINUE 

2 

200 

CONTINUE 

3 


00 300 Xsl,XN 

H 


DO 30C JS1,JN 

s 


Xp IMARI l»jl .EOtOl 60 TO 30l 

6 


00 310 KS2,KN 

7 


RSUHV:|RXNTVCZ,JtK)«RXNTY(lf J«K«in*lDZ/2l*AP*CUL>*HZl X» 

a 


TXNT(IiJl:YXNTIXt*<|4RSUNV 

9 

31C 

CONTINUE 

0 

301 

CONTINUE 

1 

30C 

CONTINUE 

2 


RETURN 

3 


END 
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9.2.54 RWH 

This subrouclne uses conClnuiCy equation to compute 
vertical velocities at half grid points. 
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tOOC.RWN 

1 

2 

1 

« 

S 

* 

7 

to 

11 

12 

IS 

10 

15 

15 

17 

18 
17 
20 
21 
22 
23 
27 
25 


♦ 

IQ 


S0M0UTI5C RWN(I,J,K,fV,JW,I»t,JN,KN,XWN(JUNtUtVtUHtN|,0XtDV»02t 
CHPHI 

OIMCKSION U(l*>,JN,NN),V|XN,JN>NNt,UNIIMNt JUNtNMl tMXfXNt JNl 

OXMCMStOK 

KMMlSNN-l 

DC lO 'lUSltXUK 

00 10 jWSltJWN 

IF (MRHI XWt^WI.eo.OI GO TO I 

00 7 NOslfKNHl , 

KSKN*KD«1 

•• «u 


OlNUXS<NXIX«ltJ«ll*(UIX«l(J«ltKI«U( I^l t It K-1) I «HXI X« 1« J)« 
CIUfX«l,J,K»«UfX«l,JtK.l)|.F!IlXtJ«lM(UIXt*l«ltKt«UiltJ«ltK-in 
c>Ni(Xtji*(U(XtJtKi«unt>iiK*ni)/ |0«ox) 
OlHVV:(Hl(X«l»J«l>7lVtl«ltJ«ltK»«V( 1«1 « U« 1 f K- 1) » «NK X t •)* 1> * 
ClV(X»J*l»K)«VIX tU«ltK-in*HllI«l,J|4(VtX«ltJtKI«VlX«lf JtK-l) 1 
c*NxntJ>*(viXtJtK>«v(x»JtK*im/(<««ov) 

HNS<HXtX«ltJ« XMNX(I«ltJ)4HIIXtJ«lHHX(Xt*i> 1/7.0 
UMliy.JU tK-1 ):uHlXWt«tUtK >«ll .O/HH I* (0}HUX «olHVV I 402 
contxnue 

CONfXNue 

CONTINUE 

RETURN 

ENO 
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9.2.55 RWR 

Compuc«s real vertical veloclciea from modified vertical 
velocities used in equations at integral grid points. 


1 


34S 


I 


SU•iOUTI^C RVRdiJtKtlNtJNfNNfUtVfh »WR|HItNXf NYtOZvMRI 
OINCNSION U(XN,JN,NN|,VClN,JN,l(N|,li IXM,«IN ,KN| thXflNf JNfNNXt 
CNX(XNt«INItHxlXNtJNItNVIXN»JN|,N«R(XKv*IN| 

OC XC islfXN 
00 IC «|S1,JN 

XP IPARI XttlldT.III 00 TO a 

NNNUNN-I 

00 « KsitNNHl 

UR(X,4,N |:|K-ll*02*(UfXt4tK l«HX (X «J l«V IX tJfK l*NV I X »JI >«Nl(X»4* 
C*HIX»4(NI ' 

comxNue 

CONTXNUe 

CONTXNUe 

RCtUIIN 

CKO 


i 

! 


r 


I 


•0 


C.fftfil 


f 

i 

10 


-4 

1 

1 

1 




4 


r 


A jrJgli: 
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9.2.56 RWRH 

Compucts rtal vtrcicftl v«loclci«t ac half grid points* 


SMROUlINC RttRHfI»JfN«IW»JM»lN«jNiNN»IHNf*MNtUtVfVNtHI»HXtHVt 
COXtOVtOltHRNtMIIHI 

OjMCNSlOl^ UI]KtJii*NR»tV(lNfJI«»NNI«M»<llUN»JUN,NN| ,NI|lN,JNf, 

OIMCNSIOX HRNIlkMfJMNtKN) 

MNNICNN-I 
00 tlUtS 

00 10 uVSlfjWN 
ir INRNIINtJUI.ee .01 00 TO I 
. NXAVX|HXIt«ltJMNXlX«tt«l«lt«NXIItJ>«NXIlt<J*in/R. • 
NY«vr|HvlI«ltJI«HV|l«l,J«t|«NV(I,Jl«HVIIfl«|ll/l|. 
NlAVX||||li«ltjl«Ht(I«ltJ«lT«NIIItJl«NXIXt J«l|)/R. 

00 t RSitXNNI 

IsXU 

JsJM 

UAV3tU|X«l,J(NI«U(X«l,J«ltM«UClt*>tNHUIItJ«ltNII/«. 

vAv-<V(I«XtJtNMV|X«l,J«l ,N >«V(XtJtNl«VlX t«l*ltNn/«. 

NRNlXUtJNt|.|3f||-ll«DZ«(UAV»HX«v*VAV^HvAV>«HIAV«NN|XN,JN,N| 

CONTXNUe 

CCklXNUe 

COMINUC 

RETURN 

CNO 
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9.2.57 ST0RE2 

This subrouCins scorts vslust of input parsmcttrs and 
physical quantities on a file daslgnatad as Unit 8. 




M)oc .store: 


1 

2 

3 

« 

5 

6 
7 
« 
9 

SO 

IS 

S3 

S3 

19 

55 

56 

57 
SB 
S9 

20 
2S 
22 

23 

24 

25 

26 
27 
2S 

29 

30 
3S 
32 
43 


C< 

C 

C< 


THIS PROGRAH STORES THE RELEVANT CATA INTO FILE 8 


SUBRCUTIKE STCR£2 (U «V ,bN .FlNTHf X i Jt N t Jw» IKt JN ,KH,iyN, JUNtO ,E, 
CHX,HV.HX,HAR,f'RN,At , AH ,A V ,AP .OX .OT 1 02 tOT * T aUX »T AUY »V,UR, WRh» 
CTAXtTAHtTAV,ANT»Ce»CWtA,B,C,EUL,T»TW»RO(ROUtTEtRREF,TREF|TOtTAHB( 
eiTOTI" 

OXHEHSIOA UII»i»JH,KN},VfXN,JN,KNl,o(IN,«IN,KN|,E<lNtJN»KN»t 
CvHIXWNtJLNtKH (tPlNTH (XkN,JWN) 

dimension HX(XNtJN)»HY(INtJNI»HI(IN»JNI»MAR fXN.JNI ,MRH{lWN,JWN)» 
CUIXN,JN.KN|,WR(IN,JN ,KNI tVRH(XyNvJUN,KN) 

DIMENSION TIZN»JN(KN},RO tXN .JN »KN I »TU (SUN ,JWN ,KN} ,ROU <ZUN« JHN(KN ) 

ReWlNO • 

URITE ISI (((U(I»J,KI,Ksl,KN),JsS,JN},x:S«lNi* 

C(((VII.-JtN)tK:l.KN),jsStJNItIslyZN|y 
C(((0« T,JtK}tK:S*KN»fiSSyJN) tZZitIN) f 
C(((E(I,J«KI,K:i,KN>yJ=S,JNI ti:l tSNI t 
C ( ((UV'ilU yJU,K ),K = lfKN| yJU = iyJWN».ZUri,ZUN)y 
C( ((U(I,JtKltK=S*KN)|J=I.JN>tl=l ,ZN> , 
C(((UR(I,J.KI«K=X,KN}tj=S,JN)iI=S tlN>t 
C(((URHiZU»JUtK) tK=l»KNI.JU=l,JUN».IW=SyXWNIy 
C((PINTH( lUyJUlf JU:S.JUNI,IW=I.IUNI 

C»((HI<lf JNlfl^StZNlt ((Hx(Z.J)fJ:Sf JN ) Z=i ,ZN| , | (HY (Z yJ I ,J = 

ClyJNIyI=lyZN»y( (HAR(XyJ>yJ=l(JN)yI=lylNly ((HRH(ZUyJw( yJU=St JUNly 

CXU=lyIUNIy(((T|IyJyK )yK=lyKN)yJZl.JN)yX=lyZNIy 
CIKROdy JyNlyKZlyKNlyJZSyJN lylZlylNIy 
C(((TU(lUyUUyK lyKZlyKN) yJUZlyjUM yIU:lyZUNIy 
C(((ROU(XWyJUyKI yKrI.KN)«JW=lyJUNI,lWzl,ZUN) y 

CTAIyTAHy TAVyAKTyCDyCWyAyByCfEULy TyTU.ROyROUyTEyRREFyTREFyTOyTAHBy 
CAIyAHyAVyAPyDXyCYyDZyDTyTAUXyTAUYyTTOT 
REMIND 8 
RETURN 
END 


) 



^Aq.1, , 

<}^ALrry 
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9.2.58 TEMB2 

This program makes computations for temperatures at the 
Doundary points in the domain of Interest. Centraldifferencc 
schemes are used for computating derivative of temperature 
with respect to a and 3* Heat flux specified at the vertical 

* a* 

walls is used to compute the derivatives normal to the vertical 
walls . Heat flux boundary condition is used in a manner ex- 
plained in TEMI4. 


• 4 ^ 
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MOOC 

.TCHB2 


1 


SUBROUTINE TENS 2«1 ,J *K » IN t ON ,NN,T Dt CX tOV tOE tMARt CB tHX «AKT|CW» 

2 


CTAHBtHXtHV»T( TREE »TA Vt T* X tT AH ,63 ,CT I 

1 


DXMENSlOt TIIN,4N,KN ),10 (IN , JN ,KN > , P AR 1 IN , JN ) ,HX I IN, JNI , HVI IN, JN> 

% 


chiiin,jn: 

% 


KNNI=KN'l 

6 


00 1.03 n;1,NN 

7 


DO too 1S1,IN 

8 


DO ICO J:t,JN 

9 


DlHTUXSOtO 

13 

• 

OINTVVSO.C ‘ 

It 


D1TWZ=0.0 

12 


IF (HAR(I,JI.EO.C} GO TO 300 

IS 


IF (HAR( I,J) .EQ.in CO TO SCO 

19 


IF IMAfl(I,Ol.EO.I) GO TO tl 

IS 


IF (HAR( I,J).CQ.2I CO TO 12 

16 


IF IHARC ItJI.EO.SI GO TO 13 

17 


IF IMAR( I,J>.EQ*<n CO TO IN 

18 


IF (HAR(I,JI.E0.5I CO TO 15 

19 


IF (MARC I,JI.EQ.6I CO TO 16 

20 


IF (MARC ItJI.EQ.n GO TO 17 

21 


IF (MAR( I,J> .E0.8I 60 TO 18 

22 


IF (MAR(I,J}.EQ.9) CO TO 19 

23 


IF (MAR(I,JI.CQ.10) GO TO 20 

29 

11 

CONTINUE 

25 


01TX=(T(1«1,J,K l-T(I*l,J,Kn/(2«DX) 

26 


D2TX = (T( I«1,J,K l«T(I>l,J ,K)»2*T (1,J,KM/(DX*0X» 

27 


D2TZ=(T(1,J,K«1I«T(I ,J,K-lt-2*T(I,J,Kll/(DZ'^DZI 

28 


D1TY=0.0 

29 


02TY=2*(T(If.i-l,KI>T(I,J,Kn/(DV*DV ) 

30 


IF (K.EQ.ll 60 TO 110 

31 


IF (K.CQ.KNI GO TO 120 

32 


GO TO 200 

33 

12 

CONTINUE 

39 


D1TX=(T( I«1,J,K >>T(I-1 ,J,Ki 1/ (2*0X1 

35 


02TX=(T( I«1,J,K l«T(I-l,J,K)-2*T(I,J,KII/(DX*0X) 

36 


D2TZ=(T( I,J,K«1 l«T(I ,J,K>1I>2*T( I,J,Kn/(DZ*DZI 

37 


01TY=0.0 

38 


02TY=2*(T(I,J«1,KI-T(I,J,K) )/(OY*DYI 

39 


IF (K.EOtll GO TO no 

93 


IF (K.EO.KNI GO TO 120 

91 


GO TO 20C 

92 

13 

CONTINUE 

93 


DITXZO.O 

99 


D2TX=2*( T(1«1,J,KI>T(I ,J ,K ) )/ (DX*OX 1 

95 


C2T2=(T( I,J,K«1 l«T(l ,J,K>lt>2*T (I,J,Kn/(OZ*OZI 

96 


D1TY:(T( I,J«1,K 1-T(1 ,J-1 ,KI >/(2*0YI 

97 


D2TY=(T(I,J«1,K )«T(I ,J-1,KI-2*T ( I , J ,M ) 1 / ( DY * OY 1 

98 


IFCK.EO.ll 60 TO 110 

99 


IF(K.EO*KN) 60 TO 120 

50 


CO TO 20C 

51 

19 

CONTINUE 

52 


DlTXrO.O 

53 


D2TX::2*( T(1-1,J,KI-T(I , J ,K I 1/ (OX«DX ) 

59 


D2TZ=(T( I,J,K«1)«T(I ,J,K> n >2 *T ( I, J,K >1/(02*02) 

55 


D1TV=(T( I,J«1,K >-T(l ,J-1 ,K) )/(2*0Y) 

56 


02TYr(T( 1,J«1,K )«T(I ,J-1 ,K )-2*T (I,J,K))/ (OY*DY) 




it-'UUP 


i3 ^ 
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I 

I 


I 


57 


ZF (K.eo.ll 60 TO lie 

55 


ZF IK.eo.NNI 60 TO 120 

59 


60 TO 200 

50 

15 

CONTINUE 

51 


01TX=3.0 

52 


02TXs2*(TIZ«l(UtKl-TtZ ,J»Kn/IOX*OX I 

53 


D2TZ=(T( 1,J»K«1 MTII »J tK-l)-2*T( I »J«KI 1/102*02) 

59 


DlTYrO.O 

55 


02T7:2«f TCZ(U*l*K)-TIZ(JtK)l/IOV*OYI 

55 


ZF CK.EO.l) 60 TO IIC 

57 


ZF IK.ee .KN) 60 TO 120 ' 

55 


. 60 TO 20C 

59 

17 

CONTINUE 

70 


OITXSO.O 

^71 


02TXs2*mZ«l»JtK)-T(Z |J pK 1 )/ IDX*OX ) 

72 


D2T2:(Tf lpJ»K«l)«TtZ pJ |K -1) -2*T 1 Z pJ pKI )/( 02 * 02) 

,»7S 


OlTVsO.O 

79 


02TYs2*tT(ZpJ«lpK)-TapJpK) )/(OV*OY) 

75 


ZFfK.E0.D60 TO 110 

75 


ZFfK.EQ.KN)60 TO 120 

77 


60 TO 20C 

75 

19 

CONTINUE 

79 


OITXSO.O 

53 


02TXs2*f TtZ-lpJpK)*T(ZpJpK) )/(DX*OX ) 

61 


02T2:(T( ZpUpK*! )«T(Z pJ «K>1 )-2*T ( 1 p.< pK) )/ 102^ 02) 

52 


OITVSO.O 

53 


02TV=2*( T<ZpJ*lpK )-T(l p JpK ) )/ (DY*OV ) 

59 


ZF tK.EO.l) 60 TO 110 

55 


ZF CK.EQ.KN) 60 TO 12C 

56 


60 TO 200 

57 

20 

CONTZNUE 

55 


OITXSO.O 

59 


02TX=2»(T(Z-lpJ pK)-TCZ pj pK ) )/ CDX*OX ) 

90 


D2T2SITI IpJpK«l)4T(ZpJpK>l)*2*TIZpJpK))/l02*02) 

91 


OITVSO.O 

92 


D2TYs2*f TfZpJ-lpK)-T(lpJpK) )/tDY*OY) 

93 


ZF fK.EO.l) 60 TO 110 

99 


ZF fK.EQ.KN) 60 TO 120 

95 


60 TO 20C 

96 

110 

CONTINUE 

97 


CT=AKT*C CTfZpJp 1)*TREF*TREF)-TAMB)/TREF 

95 


CTsCT*HZIZpJ) 

99 


0212=2*(T(IpJp2)*CT*DZ-T(IpJplD/fDZ*D2) 

100 


GO TO 20C 

ICl 

120 

CONTINUE 

102 


02TZ=2«(T(ZpJpK >1)-T (I pJpK) 1/(02*02) 

1C 3 


GO TO 200 

109 

2C0 

CONTINUE 

105 


TOdpJpK )=(1.C/HI (I ,Un*l-TAI*(DlHTUX*01HTVY«HI (I»J)*D1TWZ) «TAH 

106 


C*(01TX*HX(I,J l♦D2TX*HI (I ,J»401TY*HY{I,J)*02TY*HI(I,jn*ITAW/HI(IpJ 

107 


C) )*e3*02TZ)*0T*T(I,JpK 1 

1C8 

u 

CONTINUE 

109 

le 

CONTINUE 

110 

3C0 

CONTINUE 

111 

ICO 

CONTINUE 

112 


RETURN 

113 


END 


1 


OmmAL PAGE IS 

Or .'‘OOR QOAtlTV 


HttCEDINQ PAGE BLANK NOT PliNiL,., 


354 


9.2.59 TEMB2A 

This subroutine is used by the far field stratified model. 
This subroutine is similar to TEMB2 with the difference that this 
subroutine calls the subroutine VERTDF which supplies the value 
and the derivative of vertical diffusivity for every grid 
point , 
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SKM^DULLm* 

1 

2 

3 

5 

6 
7 
S 
9 

13 

11 


T,CW, 


2n 

29 

30 

31 

32 

33 

34 

35 
3S 
37 
33 

39 

40 

41 

42 

43 

44 

45 
45 
47 
4B 

49 

50 

51 

52 

53 

54 

55 
55 


12 


14 


suu??cu7: sc temh: , is ,,^s , ks , ir ,nx ,dy fDk*,niir ,cr 

CTAM0,HX,HY, T, ThTf tUV, TM , 3,nn 

0IMCN3 iOS Ml N, TOi IN t JNf Kf% I I>\t OM fMX ( INt JM) i MY( IN » JS ) 

CHK ISfONI 
KNM J = KN- 1 
UO 120 KrUK.S 
DO K.J 

00 UO J::lfJN 

01HTUX = :.C 

oiHTVYi: , 

DlTW2=;tu 


IZ 

IF 

IKAM It J> 

.50 

. L ) 

GO 

TO 

^ m 

13 

IF 

IMAkI ItJ) 

• ! w 

.1!) 

GO 

TO 

"icc 

ll 

IF 

IMAul ItJI 

.54 

• I) 

GC 

TO 

1! 

15 

IF 

IKAM ItJ) 

• FW 

.2) 

to 

TO 

i: 

16 

IF 

IMATI ItJ) 

.re 

• I) 

CO 

TO 

1 3 

IT 

IF 

(Ml si : tJI 

.'’C 

.4) 

cc 

TO 

14 

13 

IF 

IFA'^I ItJ) 


• 5) 

CO 

TO 

15 

19 

IF 

IMAhl ItJ) 

.CO 

• c ) 

CO 

TO 

U 

20 

IF 

1) Ai^l ItJ) 

.CQ 

.71 

GO 

TO 

17 

21 

IF 

(HAf^l ItJ) 

• CO 

»U 

GO 

TO 

le 

22 

IF 

1 H A iv 1 1 1 J ) 

.Cw 

.5 ) 

GO 

TO 

19 

23 

IF 

iMiiii J) 

.:o 

. 1") 

GO 

TO 

a- 

2>» 

11 CON 

TiNu^: 






23 

oiTxnn i^i. 

J tK 

l-TI 

I-l 

# J f 

K ) )/ 

26 

D2TX=I Tl !dt 

JtKJdl 

I • 1 

f J 1 

K )-2 

27 

D2T7=m I,J, 

Kd 

)4TI1 tJ 

|K- 

I )-: 


OlTYrn.rj 

o: rY=2M( T< I, >-ni ,jfK ) > / u2^D2 j 

IF fK.CQ •!) GC TO lin 

ir (K.tC.KU) GO TO 120 

GO TO 21C 

CCnTISUl 

01TX=( n !♦!♦ J ,K J -TOl ,J,h ) ) / C’^LX ] 

D2TX«n< J ,K MT< T-i , J,K I-: «T ( I , J,h )) / (rx-»2x ) 


D2T2rCT< liJtK^lMTd ,J ,K-1 l-I^T (I , J,K )) / ( 
ClTYrj.r 

02TY = 2^( T»r, JdiK )-UI ,J,K n/ (GY*DY ) 

IF iK.GO.n GC TO lie 
IF (K.CQ.HN) GO TO KH 
GO TO 2DJ 
CONTINUE 
OlTXrO,: 

D2TX-2*^(T(I^l,JtKI-T(I,J,Kn/(OXvOXI 
orTZ=< M i.jtKdMTCfj ,i<-n-:vT (I, j, 

0 ITYrC n I f IfK )-T(I ,J-l ,K ))/ (C vDY > 

r*>TV-#T# " lAl - %aT#T - 1-1 .4/ 


)) / ( C *.MUZ) 
♦Tilt JfK))/U'Y‘UY) 


D2Tv=( T< :,j* i,K iJ-itK I 

ir (K.i. 0 . 1 ) 60 TO n: 

IF IK.wC.Kf.) CO TO ICO 

60 TO iZL 

COUTINUC 

DlTXr:.? 

d.:tx=c»it(i-i,j,ki-t(I,j,k)i/(cxwdx) 

01TY:(T(I,JMilU-Ta,J-l,KI>/CvOY» 

C2TY=nn ,J« 1 ,K MT(I 'T (I , J,h n /10Y<'UY ) 


357 


57 


IF IK.c.Q.tl 6C TO 110 

SO 


IF (K.tIC.KM CO TO 120 

59 


GO TO .>ao 

v3 

15 

COMTINO!; 

61 


oirxza.a 

62 


C2TX=0«I TI.T« 1 ,J,K »-T(I ,J,K I l/(OX*OX 1 

63 


D2T2=m I, J,K«: M Til, J,K-ll-2*T<l,J,KII/< 02^071 

64 


OlTVrS.O 

6S 


D2TV=2*IT«:,J-1,KI-T(I ,J ,K 1 1/ <02*02 ) 

66 


IF <K.lG.1I CO TO 112 . 

67 


IF (K.cO.KM CO TO 12C 

68 


CO TO 2 JO 

69 

17 

CONTINUE 

73 


01TX=0.0 • 

71 


02TXr2«< T<l«l,JfK )-T(I ,J,K 1 1 / <CX*OX 1 

72 


02T7=(T( MT(l,J,K-ll-2*T<l,J,KII/<PZf02l 

* 73 


OITVSJ.O 

74 


02TY=:*(TC1,J*1,K }-T(I ,J,K Il/I0Y*DVI 

75 


IF (K.bO*n GO TO no 

76 


IF Ik.bO.KN) GO TO 120 

77 


60 TO 200 

73 

19 

continue 

79 


OlTXrg.3 

33 


02Tx=2*< m-i,j,K j- r (I ,j,K n/ <dx*ox » 

01 


D2T7=m I#J,K41MT<l,J,K-ll-2*T<I,J,Kn/<D7«‘02) 

62 


OlTYiO.a 

83 


02TY=2*C T«I,J«1,K »-T(I , J ,K 1 »/ CO Y*0 Y 1 

64 


IF CK.EO.ll CO TO no 

85 


IF <K.£Q.KN1 CC TO 12C 

66 


CO TO 20C 

87 

20 

CONTINUE 

88 


D1TX=0,0 

SQ 


02TX=2*< T<I-l,J,K l-T(I ,J,K ) 1/ CDX<f0X ) 

93 


02T2=<T< I,JtK*:i*T(I,J,K-l l-E*! (If Jt to 1/107*07) 

91 


DlTY=O.D 

92 


02TYr2*<T(I,J-l,K )>T(I « J,K ) 1/(07*071 

93 


IF (K.tO.l) GO TO 113 

94 


IF (K.iO.KN) GO TO 170 

95 


GO TO 20C 

76 

110 

CONTINUE 

97 


CT:iKT*( (T(I ,J, l)*Tr£F«TREn-TAMB)/TREF 

98 


CT:CT*HI(I,J) 

. 99 


02T7-2*( T(I,J,2I-CT«‘D2-T( I,J,1))/{07*DZI 

1C3 


60 TO 700 

ICX 

12C 

CONTINUE 

102 


02T7i2*(T(I,J,K-ll-T(I,J,K)l/(C7*07) 

103 


GO TO 2CU 

1C4 

20C 

CONTINUE 

105 


TOdfUfK )rj l.C/Hl (1 ,J) )*( - tai*(oihtux*o:htvy*mi( 

1C6 


C* (0 lTX*HX(If J )*DtTX<HI ( 1 1 J) ♦D1TY*HY (I ,JI ♦DOTYf'Hl ( I 

107 


C) )*33*02T7)*0T*T{I,J,K I 

108 

16 

CONTINUE 

109 

18 

CONTINUE 

113 

ICO 

CONTINUE 

ni 

ICC 

CONTINUE 

112 


RETURN 

113 


END 




preceding page Dl/.NK NOT 




9.2.60 TEMI4 

This program computas temperaturas at tha intarlor polnta 
of tha domain of Intarast. Computationa ara mada at tha full 
grid points. Cantral-diffaranca schamas ara used to write tha 
first and second derivatives with respect to a and 6. Single 
sided difference schemes are used for derivatives with respect 
to Y t:op surface and at bottom. Corner points designated 
by 6 and 8 are treated as interior points. Heat flux 

through the surface is used in specifying the first and second 
derivaties of temperature with respect to y . Heat flux through 
the bottom is used in specifying the first and second derivatives 
of temperature with respect to y* Energy equation is used to 
compute temperatures. 
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l•ooc•Te»a<l 


1 


SUBROUTl ftC TC MX ft 1 1 , J ,K «I N ,JN ,NN »U »V J ,70 , OX • 

2 


CCS, 

3 


C0V,02,li,0T,TAI,TAN,T«V,B3,Nl,HX,HY,MftR,«NT,TReF,TAHRI 

« 


OlMCNSlOft uaK,UN,MN|,V(lN,JK,KN),HI|IK,JNI,HX(IN,JM},NyilN,«fN} 
CMaRI1N,JM,T(IN,jdi,nm»,T 0(1N,JN,KNI ,M(IN,UN,KfO 

S 


ft 


NNMUKN'l 

7 


00 10'1=1,1N 

• 


OO 10 jSltJN 

t 


IFtMARII ,JI.£ o.61 GO TO 100 . 

10 


SFlMAR(l,J|.CO.ftl CO TO ICO 

11 


IF (MARI1,J1.1T*111 GO TO 9 

12 

100 

continue 

IS 


00 8 KM ,NN 

1ft 


01HTUX=I U(I«1,J,K |*T(I«1 , J, K IONIC I« 1, J) <U IX -1,J,KI*TI T-1,J,K} 

IS 


CftHlIi'lt JII/I2O0XI 

1ft 


OiHTVYSl V(X,«I«1,I> loTlX CltJ-ltK)*?* It«l**ltK)* 

17 


CNX(I,J>1|I/|2«0V| 

1ft 


01TXs(TfX«l,J,Kl-TIX-l,J,KI 1/12*0X1 

19 


01TV:ITCX,J«1,K l-TI X ,«!•! ,kM/ C2*0Y1 

2C 


01TN2:|T(X,J,K«ll*WIX,*l,K«Xl-riX,J,N-ll*W(I,J,K-lll/l2*02l 

21 


02TX:iTt X«1,J,K}«T(I-1,J,K)*2«TIX,J,KI1/(DX*0X) 

22 


02TYSITI 1,J«1,K l*1(I,j-l,Kl-2«T<I**J'*<l)/tDY*0y) 

23 


02T2=(Tf X,J,K«il«TIX,J,K-ll*2*T(l,J,K|)/lo2*OZ) 

2ft 


XF iK.eOtl) GO TO 2ft 

2S 


If lK*Co.KNl 60 TO 20 

2ft 


GO TO 21 

27 

20 

CONTINUE 

28 


OiTNZsO.O 

29 


02t 2=2*I TCXfUfN'l )-T|X ,J ,K)«CB*H1|I ,J)*02 1/(02*02) 

SO 


60 TO 21 

31 

2ft 

CONTINUE 

32 


CTsAKT*! IT(X,J,)I*TREF«TRCF)-TAMB)/TREF 

33 


CT’CTftNXIXfJ) 

3ft 


OITWZSO.O 

35 


D2TZ:2*( TlX t J, 2 )-CT*07>T(X,J, 111/(02*07 1 

36 

21 

CONTINUE 

37 


TC(I,J,K ):(i.C/HX IX ,J 1 1* ( -T AI* (OlHTUX «D1HTVY*HX 1 1 , Jl* olTMZ) 

38 


C«TAH*(01tX«HX(I,UI«02TX*HI(I,J),01TY*HY(I ,JMD2TY*HI(I,J)I 

39 


C«l (A V/HI (I,J) )*G3<*02T2)*0T«T(I,J,KI 

ftO 

8 

CONTINUE 

ftl 

9 

CONTINUE 

ft2 

1C 

CONTINUE 

ft3 


RETURN 

ftft 


END 


9.2.61 TEMI4B 

This subroutine is used by the £ar field stratified model. 
The subroutine is similar to TEMI4 with the difference that it 
calls for subroutine VERTDF which supplies the value of 
vertical diffusivity and its derivative. 
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I 

I 


I 

1 




I 


i*0JLLn»«T!:HX4C 


1 

2 
3 
I 

5 

6 
7 

e 

9 

lU 

n 

12 

13 

X4 

IS 

IS 

17 

10 

19 

20 
21 
22 
2Z 

24 

25 

26 
27 
20 

29 
3U 

31 

32 

33 
3M 

35 

36 

37 

30 
39 
4^) 

41 

42 

43 

44 


SUb’^OUTXKC TCMI4UX |J,K|Xf. f JN,KN,U»V|T9TDfDX • 

CC0» 

COVtCZf t.#CTfUItTAM,TAVt3 3|M!9MX9HV,MA4,lKT,TfUFf Tl^^fA3 
CiCOUS# AWXtAV^M 

OlKKUt lot, »H!I I * HX ( X K • JM 9 HV ( I N f JN I # 

CMAnMXNiJNItTnfifJNfKNItTOnNiJNtKMfX (X 9 JN 9 KN » 9 A ! (KM 

DO ID I::l9XN 
00 1C J-lfJfi 

;riKA4(X, J) »CC.6I GO TO 1:0 
ir(MAf)(I 9JUCC.6 ) GO TO irj 
IF (PAfM ItU) .IT. ill GO TO 9 

ino C 0 NTi^(Ut 

DO H Kzl,HU 

CALL V^^1CF(1 9 J 9 K tlNfJN 9 K N 9 III » AB 3 9 O I A 77 9 O 1032 tD2 9 T 9 A 3 9 T F 
CjCONSfAVMXf AVMM 
93rAG3 

OlHTUXxCUdtl 9^tK l«T(X«l 9 J9KI>i>HIIX«l9JI*U ( I«:9J9KUT(I-l9 J9^X 
C^MICI- 1 , JII/CmOXI 

DlHTVVSCVIi9U^l9KI*Ta9J^lfKI*Hl(X9J^l>-V(X9J-lfKKT(l9J-l9XI*»» 
CHX(l9J-in/C2^«LiYI 
D1TX-(T( IM,J,KI-T(I*l9JfK n/«X**'OXI 
01TY=(T( l,J^l9Kl-TII,J-i,Kn/(2^0YI 

DlTW2=(T(I,J,K4n«^wCl9J9K*ll-T(X*J,K-ll<*WC I 9 J 9 K - 1 II / ( 2-02 I 
D2TXS( T( 1^9^ fH l♦T(I•l f JtK I-:*! (1 9 J 9 H )l/(DX*OX I 
02TYr( T(I,Jn 9 K l♦T(I 9 J-ltK l-2*T(X 9JfK ll/(OY*DYI 
02 T 2 =(TCI,J 9 K ♦ 11 ^T( 1 9 J 9 K-: |-:*fcT ( 1 9 J 9 K 11 / C 02 *i 21 
017Z=(T( I,J,K41I-T(I,J,K-: I )/(2,»D2l 
IF(M/f7(l9*)l.i:C9:il GO TO 2DC 
01TW2=u.w 
2C0 CONTINU: 

IF (K.5Q.1I GO TC 24 
IF (K.tC.KWl GO TO 2C 
GO TO 21 
2C C0\TZNUc: 

60 TO 30 

onwzrj.u 

02T2 = 2-( TII 9 J9K-1I-TIX 9 J 9 K ( X 9 J UOZ I /I 02^D2 I 

D1T2=0#3 
GO TO ;i 
24 CONTINUE 

CT = AKT*( (1(19^9 X>9TREF^TREF)*TAMe I /TREF 

CT-CT-HKIfJI 

OlTZrCT 


45 

46 

47 
44 


01TW2=(4,'>T(: KW( l9U9H*ll-3.-T( !♦ Jf KI-k.(I , JfK|-T( I, J,K4 2I 

Cv4(l9wUK4:il/ (2.«r2 I 
0:T2=2*( Till J9:I-CT-D2-T( I,J,1 I )/ (D2*DZ I 
21 COtyTlNUd 


49 

50 

51 

52 

53 

54 

55 

56 


TOC I, J,K |r( l,r/HI (1 ,JI )*(-TAX01HTUX ♦fJlHTVY^MI ( I,JI-DlTWn 
C^TAH*^(GlTX<‘HX(l9JMC2TX^Hin9JM0lTY»HYn|JM02TY«»HICl9Jn 
C4CTAV/HI(I,jn-lt;>D2T2^aiT2-DlL32n-DT4T n,w.fKl 
CO TO 6 

3C CONTINUE 

TD( I, J,KNUT( I,JfKN I 
u CONTINUE 

9 CONTINUE 



57 

iO 

CO.'iUNU 

53 


KETU»iN 

59 


EMJ 


I 


*^«cC£DjNQ p/io, 




i'sU'f, 
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9.2.62 TEQB 

This program allows for varclcal mixing ac a particular 
grid point, If tha tamparatura of tha fluid at tha grid point 
just abova It Is lass and tha dlffaranca of tamparaturas Is 
mora than a spaclflad maximum, than tha tamparaturas at tha two 
points ara avaragad. 
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•ooc*Tcei 

1 SUSWOUriftC IEC|tln<»N.xN,jN,NNtT»M«Rl 

2 OXNCNSlOlt TIXK»JN»KNI,MAR IXNtJNX 

X NAMisNM-X 

« 00 XC XsitXN 

I OC XO jSifJN 

* XF IH4/)tXfii*e0*0l ffO TO « 

7 XIO COMTXNUC 

• NARNsO 

« 00 • KSIfNHNX 

10 * TX=C*CC2 

IX 1TbTII,J,KI«TX 

12 XF lN*eo*X) 00 TO 7 

IS If nv.CO.NNMll 00 TO * 

I« IF fTT.OC.nitJ»N«xn 00 TO 111 

IS MARNsS 

XO AVTBnT«TfXtJtN«ll»/2*0 

X7 TIx«j»kI:AVT-TX 

It Tf X»*ltN« nsAVT 

17 SO TO S 

20 7 CeOTXNUC 

21 XF ITT.OC*T(Zt«*»N«in CO TO HI 

22 MARKS! 

2S AVTs|TT«2*TIX*J,K«HI/3.C 

27 T(X«J(K»:AVT-TX 

2S TtX»JtK«l}rAVT 

20 SO To S 

27 6 CONTXNUe 

28 XF |TT.SE.TCXt<ltK«llX 00 TO 111 

29 

39 AVTsl2*TT«TlX,j»K«n>/3.0 

31 TII,J,K):AVT-TX 

32 T(X,J,K«1)sAVT 

33 00 TO S 

37 S CONTINUE 

35 111 CONTINUE 

SO 0 CONTINUE 

37 9 CONTINUE 

38 10 CONTINUE 

RETURN 
ENO 


0 


366 


9.2.63 TPRINl 

This program prints the input parameters. 
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SilBROUTlKC TPRIMITAltTAN,T«V,CB*CU . ANT ,1 RCr , RRC F ,CuL. A » B * C» TCt TO i 
FRIK'T 10, TAZ,TAH,TAV,CB,Ck,AKT,TPeF,RREF,CUL,AiBiC»Te.TO 
rORHAT »/• TAI=«,El5.7,/» T A»«= IS . 7,/ » TAW= • , C i5 , 7, /• CBs*,El5.7 
Ct/» CW=' tCl5.7,/» AkT:*,C1S.7,/* TR CF=» ,E 15 . 7 ,/ • RREFr* E 15.7,/ 

C* LUL=«,ClS.7,/* A=*,El5.7t/* B=*»El5»Tf/» C=*iE15.7,/» TE=*fE15.7 
C|/* T0=» ,E15.7-/t 
RETURM 
END 
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9.2.64 TPRIN2 

This program prints temperature and density fields. 


I 


r 



1 

I 

I 

I 

I 

1 

I 

I 


•OOC .TPRIN2 


1 


2 

c 

3 


R 


5 


» 


7 


a 


9 

10 

10 

u 

11 

12 

12 


13 


IR 


15 

ICO 

16 


17 


18 


19 


20 

ino 

21 

ISO 

22 

105 

23 

1C6 

2R 


2S 



INIS PROGRAP PRINTS THE VAiUCS CF TtTN»ROtROW 

SUBROUTINE TPP1N2II t J tK » IN , JK ,KN ,T « ROtTREF » 

OINENSION TllN,JN,KN»,ROIIN tJNyKNI 
DO to NrlyKN 
DO 10:1= tyIN 

PRINT XtyK»I|(TIIyJyK)yJ=IyJNI 
PRINT 12tlR0(IyJyKlyJ=lyJN) 

FORMAT!/* K:*yl!,;Xy*I:*yI3/* TEHPERATURCVISXyeElSyT)) 
FORMAT!* Dt:NSlTT*/(SXtSC15.7|| 

00 too KStyKN 
CO ICC JSlyJN 
DO 100 islyIN 

T!IyUyKl:<l.«T! lyJyX l>*TREF 
00 ISO K:lyKN 
MRlTEl6ylCS) X 
00 IRQ l=)yIN 

URlTei6yl06> IT !lyJyKlyJ = lyUN) 

continue 

CONTINUE 

FORHAT!«l*y* TEMPERATURES FOR K=*yl5l 
FCRMAT(//y22F5.1 ) 

return 

END 





I 

1 

i 

1 
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9.2.65 TPRIN9 

This subroutine is used by the far field models, 
temperature and density fields. 




Itprlnts 
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t 

z 

3 

H 

5 

6 
7 

ti 

9 


•TORINO 

C 


THIS rfcOSRMf f«ms TMI VAUUES or T,Ti<,RC,rOH 

SUt TOUTINE TPOIN9(i ,J,h , , Jf; ,K»i, T ,10 ,Trr.F |M AR ) 

DIMENSION Tf IN* JNfKMiRO C II. ^Jl. tKN) i^ARIlNf wNI 
GO TO Si: 

00 10 Kr liKN 
DO 10 ir ItIN 

PI^INT ll,KtI,ITC»JfHI»Jzl,JM i 


xo 

1C 

PRINT 13»C>^0(l9J»P) fJrl^JM 

11 

11 

FORMAT!/* Kr*,I 3 ,:Xt*lr*,i;j/* TEhPtRATjr 

1? 

12 

FORMAT!* rLNSlTV*/(£X,*>£15,7l 1 

13 

512 

COMINU: 

14 


00 ItO Krl^KN 

15 


DO i:0 J^lfJN 

16 


DO ISC r*l,IN 

17 


Tl I, J,K> = C !.♦ T< I 9 J,K n vTRCr 

IS 


XFiPAR!! 9 JI.CC.C ) TCI, J 9 K UUCCOOO.CC 

!•> 

ICO 

continlc 

2 D 


CO 150 K-ltKN 

21 


WPlTECt.9 H 

22 


DO 140 1 = 1, IN 

23 


WRlTi:f 09 U'b) (TCI 9 J 9 KI 9^-1 ,JN) 

24 

140 

continue 

25 

15 0 

COMlNUi 

26 

1?5 

FORHATt* 1*9,* TElirSRATU^ES FOR Kr*,:^,/! 

27 

IC‘6 

FORMAT C//,IBF 7, n 

29 


kCTUKN 

29 


LNO 


^Sg,? 
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9.2.66 TPRINA 

This subroutine Is used by the far field printing programs. 
The subroutine is similar to TPRIN2 with the difference that it 
is tailored to the Lake Belcv;s application. 
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H«OUU( 1 t.TPRiN* 
1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
15 
17 
IS 

19 

20 
21 
22 
21 

24 

25 

26 
27 


i: 

11 

12 


ICC 


140 

15C 

1C5 

1C6 


THIS P.-.P59AV rhlNTS TMt V/UitS OF T,TW,Rt,»iO- 

SUt 9CUT:M TPri» All ,J,K, I‘. , JS|KH,T |f OiTr'CF 
OIHCNSIOI. Tlir • JNthN ),^0 I IN I JN. Kin |MAP( !Nf 
00 to K::1,K>« 

CO 1C I=lilN 

pftvn n »K,!, n 1 1 ,j(Ki ,j=i , JM 

POIMT 12,«A0n|.*,M,Jri,JM , 

FOP"AH/* K=»,I»,:x,»l=*,13/» Tr.MPiRATJSL • /« SX,SU! .7n 
rot{**An* ri*niTv*/i5x, LEis,?n 
00 ICO Kr],K.N 
DO in J=1|JN 
00 UO 

T(I,J»M:(l.«T(I,J,Kn*TPCF 

iriHAim tJi .cc.c) T(i, j.K I ::a:c:cn.c: 

comiNuc 

00 1S3 K=1,KN 
WRITCUtlCCI K 
00 143 Irl,lN 

WRITcIt. ICu) (T(I ,J»K) ,J = 1 , JU 

CONTINUE 

CCNTIflUr 

FOKHAH* I’tt • TtMPEPATUREC FOR K = ’,!5|/) 

F0.?MAT«//,ieF7,n 

RETURN 

END 
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92.67 UANVC 

This subroutine adds corlolis component to H and G which are 
obtained from subroutine "UV" 


« 




I*00C .UAMVC 


t SUMOUTINC UANVCIIt>>tNtINt«<N,KN,A»R,OT,UtV«H,OfHltMAII| 

2 OIMCNSXOA HIXN,JNtKNI|6(lN(JN»KNI,U(IN,JN,NNItV(X»i,JH,KN|» 

S CNXIXNtJNItHAMX»»UNI 

« KKMISNN'I 

S 00 10 XsitXN 

i 00 19 JSXtJN 

T Xr f'tAlH XtJI.LT.lll GO TO 0 

• 00 « N:2tKNHl 

« H<X»JtKlsNIXt*>tNI«ABR*HX(X»JI*Vll«J,KMOT 

3 . GIXtJtKIsGlXtJtKl^ABR^HXIltJl^UdiJfKMOT 

1 B CONTINUe 

2 9 CONTXNUe 

S 1C CONTINUE 

9 RETURN 

S END 
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9.2.68 UV 

This subroutine computet new horizontal velocities without 
Including the Coriolis component which Is added later In the 
subroutine UANVC. This program uses U and V momentum equations 
and computes velocities In the Interior points after one time 

* iit 

step and are stored as H and G, 
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•OQC *UV 

1 

2 
S 
« 
s 
* 

7 

♦ 

19 

11 

12 

IS 

1« 

IS 

u 

17 

IS 

!♦ 

29 

21 

22 

23 

24 

25 

26 
27 
26 
29 
SO 

31 

32 

33 

34 

35 

36 

37 

38 

39 
49 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


8 

9 

1C 


SUIROUlIkC UV(ItJfKtlW|JM»|NtJN»KNtlMN»JWN(UtVtOti:tH»tttOXtOV,02» 
CUt 

C01(Mi*9tAH«AVt*3»Hl yNX(NV,P(M*8 I 
OIMCNSXON UlXKyJNtKNlyVIlKy JNyNNItO (IN ,JN »KN I ,C t XNyJNyNMl y 

CNIIKyJNyKNIyGIXKyJN yKNIyHKlDlyJNlyHXIINyJNI yHYlXKyJNI yP( XWNyjyMy 
CM«R(XM«JKt 
OXPCNSXON W(X6yJNyK6| 

0XPC6SX0N A3IKNI 

KNMtSKN-l . 

AS0T**H*<1/IDX4CXI«1/I0Y*0VI> 

00 10 islyXN 
00 1C JSlyJN 

xysx 

•IW* J 

If IMARIXyJl.LT.il) CO TO 9 

oiPxstPi xwyjy i-pny-iyjw)«pnyyjy-i i-p(iyiyjy-i)i/( 2 *oxi 
oiPYsfPi XLyjw i-piiuyjy'i )«p (ly-iyjy i-P(xy-iyjy-ii)/i2*0Y) 

00 8 KS2yKNHl 

B:0T*AV*A3(K)/ICZ*02) 

CSiHIlIy J14A4HX IXyJMB/HlIIyJI) 

01HUUX:tU(X«lyJyK)»lMI«lyJyK)*HI(I«lyJ)-U(X-lyJyK) 

C«UIX*lyJyK)»HIIl-lyjn/i;*DXl 

01NUVYS(UIIyJ«lyK)«V(XyJ«lyN)*HIIIy J«l)-UIXyJ-lyK) 
C«VnyJ-lyK)«HllXyJ-l 11/ (2»0Y) 
01hUVXS|UII«lyJyK)*VII«lyJyKI«HICX«lyJ)-U(X-lyJyKI 
C«V(X-lyJyK)»HJfI>lyJ 11/ (2*0X1 
01HVVY:( V(lyJ*lyKI*VIIyJ«lyX)*Hl(IyJ«ll-V (lyJ-lyKl* 
CV(lyJ-lyK)*HX(IyJ-l))/(2*0Yl 
01UXS|U( X«lyJyK)*t'(I*lyJyK) 1/ (2*0X1 
01UV:(U( XyJ<lyK )*U(I yJ*lyK) )/(2*0Y) 

01VXS(V( l*ly JyK I'Vd-lyOyK) )/ (2*0X1 
01VV:(V( !yJ*lyK l•V(lyJ•l•Kl 1/(2*DV) 

01UUZ:(U(IyJyK* 11*6 (XyJyK«l l>U(XyJyK-l l*y (X yJyK>ll)/( 2*021 
01VUZr( V(XyJyK«l)*M(XyJyK«X)>V( I yjy K-1 )*y (XyJyK'l) 1/(2*021 
OOUX = (U( X«lyJyK )«U(X*XyJyKl-D(XyJyK ))/(DX*OX 1 
OOUVS(U( Xy J«lyK MlKXyJolyKl-OlXy JyK n/(OV*OY) 

OCbZ:(U( XyJyK«l)«t'(I yJyK«lt-0(XyJyK n/(DZ*OZl 
OOVXS(V( X«lyJyK l«V(I-lyJyK)-L(XyJyK l)/(rX*OX 1 
OOVY=(V( XyJ*lyK )«V(I yJ>X.Kl-C(IyJyKn/(DY*OY) 

OCVZS(V( XyJyK «1)*V( I yJyK*n-E(Xy JyK ))/ (02*021 

H(Xy JyKl:(0T/C)*(-AX*((ilHliUX*01HUVV «HX ( X y J 1 *0 lUW 2 ) -HX ( I y J1 * AP 
C*C1PX«AH*HI (X yj l*(00tX«0DUY 1«AH*HX( I y J ) *0 lUX « AH* HY ( Xy J1 *0 !UY 
C«AV*A3(K 1*DDU2/HI (I y J 1 1 «HI ( X y J 1 *U ( X y J yK 1 / C 
G(Xy JyKl=(0T/Cl*CAX*(01HUVX«0lHVVY«HI(XyJ)*DlVWZ)-HX(XyJ)*AP 
C*D1PY*AH*HX (X yJ )*(0CVX«00VY )«AH*HX( lyJ)*01VX*AH* HY( Xy J)*01VY 
C«AV*A3(K l*DDV2/MX(XyJ))«NI(IyJl*V (X yJyKI/C 
CONTINUE 
CONTXNue 
CONTINUE 
RETURN 
END 


PAGE IS 
OF POOR quality 
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9.2.69 UVT 

This program 1« called In by TMAIN. This program computes 
U and V for variable density model, at successive tine steps. 
ct and 3 momentum equations are used for computations. 

Results are stored as H C^or U) and G O^or V) . 


« 


i*OOC «UVT 
t 
2 
3 

« 

S 

« 

T 

• 

f 

to 

It 

12 

13 

14 

15 
IS 
IT 
It 
1* 

23 

21 

22 

23 

24 

25 

26 
27 
2S 
24 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


8 

9 

K 


iWtOUTIMC UVTIl,«ltN.IIitJW«INtJN,NN,IVIIt*IMN»U*Vt0tCtMti»0Kt0Vf02* 
CNISTX,tlSTVtCOlt 
CMt 

C0Tt«l,A9t8HtAVtl3tHl(NX»NV«9,HAi| 

OlteSSlOS Ull6t«IN,KNI»V(lN(3StNNI,0nN»JN»NNItCf XNt*m«KNI, 
CHnN,J4tN»il«6IX6«JNtN4ltNltXK(3NltNXIXMf JNItNVIlNt*INI»9IIUN*JW4lt 
CNANIXWtJSI 
OXHCMSXON U(XN,JhtNNI 
0IMCNSX04 A3(KN1 

OIKNSXOM ^INTXIXNfJNtXNIfRXSTVIINtJNtKNI • 

NMNlxKN-1 

AsOT*AH«IX/(OX*CXI«l/lbV*DVI» 

00 XC ISXtIN 
DO 1C U*lf3N 
IbsX 

JUSU 

IF tMAMItJl.iT.llI 60 TO 9 
00 • KS2ttNNl 

OXPXSIPI XW,JW)-Fnv-l»JWl«PCXV>jy-lf-FIXWl»JU-l n/l2«0X} 
C«eUI.4RXNTX«Xt3»Kl 

OXPYSCP||W,«IUI-P(Xb»JU-XI«PIIV-XtJW )-PIXW-l»JU-in/l2*0VI 
C«eUL*RXN1YtX»JtXX 
ts0T4AV4A3(NI/IC2*02) 

C:(NXtX»t<>«A4HXIXf3}«S/HXIX(*if I 

OXHUUXS|UCX«X»JtK >4U(X«l(J»KI*HXtX«X»J)-UIX-ltJ»Nl 
C*UIX*XtJfK|4HX(X-X*«m/< 2*0X1 
01HUVYS(U(XtJ«XtK l*V(X»J«XtKI*HX(T(J«l)-UfX»J-XtlO 
C*V(XtJ*’XtN>*HI(X«J-lll/f2*0Y) 
01»iUVXX(UCl«lt3*KI*V(X«l«JtKI*NXn«Xt3>-UIX-X»3ttO 
C*V(I*l»JtKI*HnX-l»Jll/(2«0X} 

OXhVVYXf V(lt3*ltKI«V(IfJ«l,K)*HXIIt J«U*VIX(J«XfKI* 

CVIX»J*1»KI*HX (X •J«X)I/I2*0Y I 
OlUXriut X4lt3tK l•U(X•XtJ»'<l 1/12*0X1 
OIUYXIUX XtJ«XtK l-U(XtJ-X,K) l/(2*0YI 
01VX:iVCX«i«*ltK l-V(X-liJtK 1 1/12*0X1 
OlVYXlVt Xt«l«lfK l•V(Xt^l*ltNn/(^*OYI 

01UW2slU<I,J»K«l}*U(XtJtK«l }•U(Xt«ltM-ll•U IXfUtK-lD/l 2*021 
0XVW2=IVfI»J,K«ll*W(Xt3tK«XI>V(XtJtK-l}*UII»JtK-XII/C2*0Z) 
OOUXrCUi X«ltJtK l*U( I-l tJ fK I -OCX t J tK 1 1/ <OX*OX I 
OOUVSCUC X«U«ltK MUIXtJ-ltKI'OIXfJtK )I/IOY*OY) 

0CU2XCUC Xt«ltK«n«UC Xt3tK-Xl -OCX tJtK 11/102*021 
OOVXSIVC X«lt«**K l«VCX-lt3tKl-eCI«J»K )|/tOX*OXl 
ODVYSCVC X»J«XtK l«V(X *J-t »K 1 •£ 1 1» J»K 1 1/ (DV*DV 1 
00V2SIVC l,J,K«ll«VCIfl»K-ll-r.CX»U»K 11/4 02*021 
HCXf J»Kl:fOT/Cl*f-AX*CO!HUUX«DlHUVY«HIIIf Jl*DlUU21-HXCXt J1*AP 
C*D1PX*AH*HXCX(J1*IOOUX«OOUY1«AH*HXC It31*DlUX*A»l*HYCI»JI*01UV 
C«AV*A3|K 140DUZ/HI CX »J 1 l«HIC X » J1*U I X *J(K 1/C 
GlXf JfKl:(OT/Cl*C-Al*l01HUVX«01HVVy «hIIXt«»*DlVUZl-Hl(X*Jl*AP 
C*DXPY«AH»HlCZtJI*tODVX«DOVY 1«AH*HX(I ,J)»01VX4AH*HYII»J1*01VV 
C«AV*AS(K1*00V2/HX CX f J 1 1 «HIC X t Jl *V (X *JtKl/C 
CORTJN'ue 
CONTXNUe 
COMTXNUe 
RETURN 
ENO 
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9.2,70 UVTB 

This subroutine Is used by the far field stratified model. 
The subroutine is similar to UVT with the difference that it 
calls for subroutine VERTDF which supplies the value for 
vertical viscosity and its derivative. 
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29 

30 

31 
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1 


H^OJlLI n.UVTB 
1 


Sl*BKOUTIN!: UVTu n fJ|K,lU, Jh »ir., JN,KNt lUN, Jt.'N,U,V,CiC|HiQiDX lUYiOZ* 
CRINTX, (JINTViLl'L , 

Ck t 

COT, tl , iP,AH, AV, / ,HX ,MV ,P,HiR,T, T*;rr fCOl.S , AV“X,AVHN» 

U!t ':NSi3N U<n.,Jr.,XM,VIIN,.!N,KNI,L''at.,JS,Ki.'l,i.(il;,JS,KNi , 

CMC IN, JiMX^ I lO JN ,KN » ,MI C It. , JN I ,MX C IN , JN I ,)iY C I N , JU ,P I IWN.JWM , 
CHARC 1N,JN) 

DIMENSION <j(IN, JN,KM,TIIN,JN,KN) 


;kAR( 1N,JN) 

DIMENSION <j(IN, JN,KM,TIIN,JN,KN) 
t'iM.’NSiON A.TCXM 

JI^;« W?-LOf. kINTX liN. jN,KN » ,KINTY C1N,JN ,KN» 


k' iri^ ku Ti ■.Mr.,, 

JIMENSION KiNTXCiN, 
hNMl=KN- I 

A=DT»AM«(l/IDX*PXI*I/ClJY*Dvn 
DO 10 1=1, IN 
DO 13 J=1,JN 
1W=I 
JW:J 


JW= j 

IP CMAM I,JI .LT.ni CO TO 
no .0 k=>-knmi 


DO ? K=^,K^H1 

DiPx=Cf( :u, jw i-rc ita- 1 ,ju) «f ciw,jw-i i-pc iw - 1 ,. 

C«£UI.*'?INTXt:,J,N) 

oli’Y-u'c i-rcK ,Jw-iMPc:w-i,jwi-fM 

C*EIIL‘>^1NTYC: , J,K I 

f i I t 1/ IJ 1 fSC 4 T I u T II 1 4 k II li T . it n 1 11 « A 7 '> f. 1 ii 1 


. -1, jw-n i/CEooxi 

. . ;-l, JW-in/tk'*DYI 

C*EIIL‘>|?1NTYC: , J,K I 

CALL Vt.'nDFC I ,J,K ,XN,JN,hN,Hl,AC3 ,DlAi;’ ,Dlti3Z,n? ,T,AI,T9LF 
C,CLNS, AVHX,AV^'NI 
A3CK)=AP? 

& = 0TN'AY»MCK)/«n:»071 

C=CH1 C I, JM A»MI II ,J 1 ♦I'/Hl ( i, Jl) 

D1HUUX:|IMI* 1 ,J,M**UI1 ♦ 1, J,K1*-HI( I* -LI C I- I, J,hl 

c*uii-i,j,K)«Hiii-i,jn/i:»Lx) 

OJMUVY = l L'll , »*V(1 ,J« I ,► ) *MH I ,J« n -U { I,J-l ,K1 

C*VI 1, J-1 ,K» »M!( 1 , J-n I / (Z^DVI 
01MUVX = ( UII« 1 ,J,o Iwv (I * 1, 1 1 « J) -LM I- 1,J,N ) 

C'^vi i-i,j,F)'>Hiii-i,jn / ir«['X) 

DiHvvv = i VII , i.h i-xvii , j« : I , j« n - V ( I, 

CVI I , J-i, t'. 1 ♦HI II ,J-l 11/ i:*DY) 

0H/7=IUI I,J,h«il-L'II ,J,K-1 I I/I2.*l2l 
DlVZiC VI l-VII ,J,K-1 )>/ 12. *071 

Diuxnui I« J ,K 1 -U( I-l ,J ,K 11/ U'*LX 1 
01UY=IUI I, J* 1 ,K )-UI I ,J-l,h ) ) / I2*L'Y 1 
OIVX:iVII«I,J,KI-VII-l,J,KII/IE«OX) 

divy:ivii,j*i,ki-vii,J“I,k»>/i:*dyi 

DiuL2=iu ii,j,K + n*>4. II , j,K ♦: )-ui :, j ,K-i) V 7 1 !, j,h-in / I ■’*oi) 
olvur- I V II, j,K« ! )*w 1 1 , j,K ♦: i-vi i , j,k-ii «w i : ,.i,N-in / i 2 *dz i 

ODUX=lUI !♦ 1, J ,K Mill I-l ,J ,K l-t II ,J,K » J / irX*DX 1 
DDOY=IUII,J»l,K»»llI,J-l,K)-ni:,J,KI>/liy*uYl 
D0U2=rj| I,J,K *1 I «UII ,J ,K -n-L II ,J,H n / I07«H7 1 


Wil 


OF POOR quality 




e* tr» 
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67 9 COKTIKUE 

1C CONTINUE 
ttCTURN 
CJ ESC) 







9.2.71 UVTOP 


This progcam computes U and V at the top using wind 
stress boundary conditions. Computations are made for MAR < 
11 only. (Interior grid points). 


•DOC.UVTOP 

1 c 

2 C 

5 C 

• C 

s 

6 
7 

• 

9 


13 
11 
• 2 
13 
19 

15 

16 
17 
19 
19 


700 

80C 


INIS PRCGRIH CICCULIUS U AND V VCLOCITICS AT TNC SURFACt USING STRESS 
BOUNOARV CONDITIONS 


SUBROUTINE UV TOP (H »G tT AUX ,T AUY . 1 . Jt NtDZ » IN* JN,KN tNItHAR) 
DINENSION HilN, JN,KN I•G(1N• JN«KN) 

DINCNtlON NX (IN,JN» ,NARtlN,JNI 
DO SCO i:ltXN 
DO SOD JSltJN 

XF (HARI XtJ>*LT.in GO TO 7C0 ' 

KSl 

TXzTAUX*NXIXtU> 

TVzTAUV*NXIX«Ui 

NiXf J*Klz(9*N IX «J,K«X}>H(XflfK*2 l*2*D7*TX 1/3 

6IX*J«Kl:l9*G IX t J |K « l)-6 IX t UtK«2 )•2«DZ*TY >/3 

CONTINUE 

CONTINUE 

RETURN 

FND 
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9.2.72 VERTDF 

This program compute vertical 
viscosity and diffuslvity as a function of temperature 
gradient in the vertical direction. The program also computes 
first derivative of vertical eddy viscosity and diffuslvity 
with resped't to r . 


387 


H«OULL( n.VCRrC'F 


1 


stiuscuiih* vcrtrr a ,j,k , i». ,jN,KK',ni,Af :,oia32 ,oil: 2 i 02 ,t, 

2 


C«CCSS» ^VMX,AV^‘;•I 

3 


01KCNSX06 HI ( IN, JN} ,T(1N , JU,KN| , A3(KI.) 

4 


00 KK = 1,KN 

5 


iriKK.iO.il GO TC 11 

6 


irtKK.tO .KNI Cv) TC i: 

7 

' .*> 

01T2=(T4 1,J,KK« 1 )>T (X .u,hK-ll 1/ (2.VD2 ) 

8 


60 TO 2J 

9 

11 

C1T2=< 4. •T»r ,.J,KK ♦: 1-3, *V ( I.J.KK 1 -ni ,J,KK «2 11/ U .»P2I 

10 


60 TO 20 • 

i: 

I •* 

01T2:(-4.*Tll,J,KK-ll*2,*T<I,J,KKMTiI,J,KK-2)l/ir,*D2l 

12 

ZT 

PAi<i = -HHI,JI *1 ( (KK-1 )#02 1 I^OITZ 

X3 


A?(KKi:« vr*x/i 1 ««>'Ara*ccNi 1 

14 


1FIMI^K).L^.AVMKI A3IKK |:AVMN 

15 


DEPTHsif LOATH K-i ll*D2*HHI,J) 

16 


IF(0tPTH.GT.0.3C) A31KK):AV^‘N 

17 

EC 

CONTINUE 

18 


lFIK.FO.il oiAjrsc.i 

19 


IFlK.tfl.KNI OlA’2 = l-4.«-AJ4h-lMJ.*A3IKMA3IK-:il/(:,*D2l 

23 


IFiK.GT. 1 .AND .K .LT.KNI D 1 A 32= ( A3 1 K « 1 1 >A 1 1 K •! 1 1/ C .‘.'•C 2 1 

21 


AU3 = A 3IK 1 

22 


Ola 22: 01 A 32 

23 


IF< l.£0. 24.ANC. J.iC .6 1 UFITtCG.UOl 1 ,J,K . A3 3 ,U lA 32 ,D 13 32 

24 

ICO 

FORMAT 1 3IC,3Flb.PI 

2S 


RETURN 

2t 


£N0 

Rr,s 

J.WMTOP 
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9.2.73 WHATIJ 

This program computes the values of W at J from the 
values of WH at IW, JVL 

Vertical velocity at a point on the main grid point Is 
talcen to be equal to the average of vertical velocities at 
four points on the half grid and lying adjacent to the point 
under consideration. Computations are made for Interior grid 
points only. 


o o n 


THIS PROGRAM CALCU.A1CS THE VALUE OF U AT I »J FROM VALUES OF HH AT IU,JW 


•0 


iC.WHATXJ 


SUBROUT IKE WH AT IJ II , J*K t lUt JV * IN i JN |KN , IW K, JUNfU tUNtM AR I 
DIMENSION WHCIUKfJUNtKN) tNlIN»JN,KN ) 

OIMEKSIOK MARlIKtJNI 
DO 3550 I=I*XN 
DO 3550 JsltJN 

IF IM^RI ItUl.LT.in 60 TO 35N0 

0 DO 3SU KSitKN * 

1 IMSI 

2 JUSJ 

3 MIItJtKIS(UHtiy«JUtK MMHIIW lU-I* JU>I«K I ) 

A C/A. 

5 35IC CONTINUE 

6 3SAC CONTINUE 

7 3550 CONTINUE 

8 RETURN 

9 CKO 
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9.2.74 WHTOP 

This program secs the value of WH equal to zero at tlie 
surface. 

■ n ■ 0 at ^"0 

No computations are made for points outside of the region of 
Interest, defined by MRH > 0. 



/ 



tf^ 
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X 

2 

3 

<1 

5 

6 

7 

8 
9 

10 

11 

1 ? 

17 

1<I 



THIS PROGRAM SETS THE VALUE OF WM ECUAL TO 


SUBROUT Iht WHTOF IIV , JW # I WN • JVN »HN »UM »K ,MRM I 
DIHCNSION bHIiyKtJWNfKNI 
OIMERSXOB HRHIlVMtJWN) 

00 33QO IWSl.IUN 
OC 3300 JW=l,jyN 

• IF |MRM( 1U| Jb l•EC•C) GO TO 3000 
WMlIVtOUtD^O 
300C CCKTINUC 
33C0 CONTINUE 
RC1URN 



